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INTRODUCTION 

The  Arizona  Employment  and  Unemployment  Data  Set  (AZEUD)  is 
made  up  of  information  drawn  from  administrative  records  of  govern¬ 
ment  agencies  in  two  separate  samples  s 

^A  20%  sample  of  workers  who  applied  for  unem¬ 
ployment  insurance  (UI)  in  Arizona  1963-71; ^ 

■  .*--»>  A  1%  sample  of  the  Arizona  labor  force  1957-72.  _ 

■The  20%  sample  is  drawn  from  the  Continuous  Wage  and  Benefit 
History  (CWBH)  data,  a  data  set  maintained  by  the  Arizona  Bureau  of 
Employment  Security  (AZBES) .  This  data  set  contains  detailed  longi¬ 
tudinal  histories  of  both  the  employment  and  unemployment  experience 
of  workers  who  claimed  UI  benefits  in  Arizona,  1963-71.  In  total, 
about  40,000  workers  are  in  the  20%  sample.  , 

9  The  1%  sample  is  derived  from  the  Social  Security  Administra¬ 
tion's  Longitudinal  Employee -Employer  Data  (LEED)  file.  The  data  file 
contains  detailed  longitudinal  histories  of  the  employment  experience 
of  workers  covered  by  Social  Security  employed  in  Arizona  1957-72. 
There  is  no  explicit  indicator  of  whether  or  not  workers  in  this  file 
claimed  unemployment  insurance.  In  total,  about  25,000  workers  are 
in  the  1%  sample .  w— 

The  CWBH  data  comprises  two  data  files:  a  wage  history  file 
for  1964-71,  and  a  benefit  history  file  covering  1963-71. 

Key  variables  in  the  wage  histories  are: 

•  workers'  earnings  by  quarter  summed  over  all 
Arizona  employers* 

•  Arizona  industry  in  which  most  earnings  were 
received  each  quarter. 

Key  variables  in  the  benefit  histories  are: 

•  age,  race,  and  sex  of  claimant 

•  last  day  worked  prior  to  claim 

•  reason  for  separation  from  employer 

•  date  and  amount  of  each  UI  payment 

•  date  and  type  of  administrative  actions,  such 
as  denials. 


*It  would  have  been  more  appropriate  to  call  the  wage  history  file 
the  earnings  history  file  since  the  workers'  earnings,  not  wage 
rates,  are  included.  The  term  wage  history  is  used  because  that  is 
the  title  used  by  the  AZBES. 
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The  LEED  data  resemble  CWBH  wage  histories.  The  major  differ¬ 
ences  are  that:  • 

•  workers'  quarterly  earnings,  industry,  and  location 
are  reported  separately  for  each  employer 

•  data  are  reported  for  employers,  both  within  and 
outside  of  Arizona. 

AZEUD,  the  combined  data  set,  is  designed  primarily  to  facili¬ 
tate  the  study  of  the  impact  of  the  Unemployment  Insurance  System  on 
the  work  force.  The  Public  Research  Institute  (PRI)  of  The  Center 
for  Naval  Analyses  has  used  these  data  to  study  the  effect  of  in¬ 
creased  benefits  on  the  job  search  behavior  of  claimants;  specifically, 

PRI  examined  the  effect  on  the  duration  of  unemployment  and  post  em¬ 
ployment  earnings.*  A  broad  range  of  other  UI  related  topics  can  be 
studied  as  well.  In  particular,  the  wealth  of  administrative  detail 
contained  in  the  data  provides  a  unique  opportunity  to  measure  the 
effect  of  administrative  procedures  on  worker  behavior. 

Both  CWBH  and  LEED  are  unusually  comprehensive  in  scope  and 
detail.  In  large  part,  this  is  due  to  the  highly  disaggregate  form 
in  which  the  data  are  presented.  For  instance,  detailed  information 
about  each  spell  of  unemployment  for  which  UI  is  claimed,  including 
the  details  of  each  benefit  payment,  is  presented  for  workers  in  the 
CWBH  sample.  Detail  about  each  employer  is  provided  for  workers  in 
the  LEED  sample.  This  type  of  data  presentation  minimizes  the  con¬ 
straints  imposed  on  the  design  of  research  plans  and  maximizes  the 
amount  of  useful  data  that  can  be  extracted  from  the  samples.  On  the 
other  hand,  this  formulation  increases  both  the  amount  and  complexity 
of  the  data  processing  required  to  use  the  data  for  analysis. 

PRI  has  assembled  the  CWBH  data  by  merging  longitudinally  wage 
history  and  claims  data  for  specific  individuals  from  annual  files 
provided  by  the  AZBES .  Over  eighty  reels  of  tape  were  processed. 

The  Arizona  LEED  file  was  assembled  by  extracting  the  full  longi¬ 
tudinal  records  of  all  workers  showing  any  employment  in  Arizona 
from  the  nationwide  LEED  file.  In  each  case,  redundant  information 
was  eliminated  and  some  data  were  reformatted. 

Neither  data  set  is  in  a  form  suitable  for  use  with  canned  pack¬ 
ages  such  as  SPSS  or  BIOMED.  In  general,  the  researcher  will  have  to 
reformat  the  data  for  analytic  work.  This  may  require  considerable 
work  since  the  format  of  the  data  is  considerably  more  complex  than 
that  used  for  most  data  sets.  The  data  can,  however,  be  read  using  , 

FORTRAN . 
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Finally,  the  size  of  the  data  sets  places  a  premium  on  effi¬ 
cient  programming.  The  user,  therefore,  should  be  cautioned  that 
more  than  ordinary  computer  programming  skill  is  required  to  use 
these  data.  Before  these  data  are  used  for  analysis,  the  interested 
researcher  should  consider  whether  the  public  use  version  of  the 
Pennsylvania  CWBH  data  base,  also  available  from  NTIS,  will  suffice; 
it  is  more  limited  in  scope  and  detail,  but  far  simpler  to  use. 

In  order  to  better  understand  the  detailed  description  of  the 
CWBH  data,  a  short  discussion  of  the  UI  law  in  Arizona  is  presented. 
This  information  should  also  be  of  value  in  setting  up  consistency 
checks  and  designing  research. 

PROVISIONS  OF  THE  UI  LAW  IN  ARIZONA 

For  an  unemployed  worker  to  be  eligible  for  benefits  in  Arizona, 

UI  law  requires  that  his  earnings  exceeded  a  minimum  dollar  amount 
in  the  base  year (the  first  four  of  the  last  five  calendar  quarters 
preceding  the  date  on  which  the  claim  was  filed) .  The  earnings  must 
also  have  been  distributed  over  at  least  two  calendar  quarters.  Pro¬ 
visions  of  the  law  concerning  minimum  earnings  requirements  were  30 
times  the  weekly  benefit  amount,  with  earnings  in  at  least  two  quarters, 
Since  the  minimum  weekly  benefit  amount  was  $10,  the  minimum  level  of 
earnings  in  the  base  year  was  $300.  After  July  1968,  the  minimum  for 
the  base  year  was  set  at  1.5  times  earnings  in  the  high  quarter.  The 
minimum  for  the  high  quarter  was  set  at  $250;  thus  the  minimum  for  the 
entire  base  year  was  $375. 

The  weekly  benefit  amount  was  equal  to  1/25  of  the  earnings  in 
the  highest  quarter,  up  to  a  maximum,  which  means  that  a  claimant 
could  receive  a  little  more  than  half  his  weekly  earnings  if  he  was 
employed  for  every  week  in  the  high  quarter. 

The  minimum  weekly  benefit  amount  was  $10  for  all  the  years 
covered  by  the  data,  and  the  maximum  amount,  which  was  raised  peri¬ 
odically,  as  shown  below. 

Maximum  benefit 
_ amount 

Up  to  1/1/65  $35 

1/1/65  to  7/7/68  $43 

7/7/68  to  9/15/71  $50 

After  9/15/71  $60 

The  weekly  benefit  amount  can  be  paid  to  a  claimant  for  26  weeks 
during  the  year  after  the  claim  is  filed  (the  claim  year) ,  covering 
several  spells  of  unemployment;  but  a  claimant  cannot  collect  more 
than  1/3  of  his  base  year  earnings  during  the  claim  year.  All 
claimants  who  have  worked  fairly  steadily  throughout  the  year  will 
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be  eligible  for  26  weeks  of  unemployment  insurance  because  1/3  of 
base  year  earnings  will  be  less  than  26  times  the  weekly  benefit 
amount  only  when  high  quarter  earnings  represent  more  than  about 
1/3  (25/78ths)  of  the  base  year  earnings. 

Partial  payments  are  made  when  the  claimant  has  low  earnings 
in  a  week.  The  claimant's  earnings  minus  a  $10  disregard  are  sub¬ 
tracted  from  the  weekly  benefit  payment  in  cases  of  partial  unem¬ 
ployment.  Partial  payments  cannot  exceed  the  weekly  benefit  amount 
for  total  unemployment. 

To  receive  benefits,  a  claimant  must  serve  a  one  week  waiting 
period  after  filing  a  claim.  The  major  reasons  for  disqualification 
after  a  claimant  has  established  a  claim  are  that  he  quit  voluntar¬ 
ily,  was  discharged  for  misconduct,  or  refused  suitable  work.  Be¬ 
fore  July  1968,  voluntary  quits  and  misconduct  discharges  had  to 
wait  an  extra  four  weeks  over  and  above  the  waiting  week  before  col¬ 
lecting  benefits  and  their  total  weeks  of  eligibility  was  reduced  by 
four  weeks.  After  July  1968,  voluntary  quits  and  discharges  were 
disqualified  until  six  times  the  weekly  benefit  amount  was  earned 
in  subsequent  employment;  and  the  total  weeks  of  eligibility  was 
reduced  by  six  weeks.  Refusal  of  suitable  work  disqualified  a 
claimant  for  the  week  of  the  refusal  and  the  next  five  weeks,  and 
total  weeks  of  eligibility  was  reduced  by  six  weeks. 

GENERAL  DESCRIPTION  OF  THE  CWBH  DATA  FORMAT 

In  the  CWBH  data,  the  unit  of  observation  is  an  individual 
worker.  All  CWBH  data  for  each  individual  are  grouped  contiguouslv 
on  the  tape.  Within  each  observation  there  are  four  basic  types  of 
records : 

•  wage  records 

•  initial  claim  records 

•  UI  transaction  records 

•  ineligible  claim  records 


Wage  Records 

A  wage  record  contains  information  about  the  individual 1 s  em¬ 
ployment  for  a  single  calendar  year.  The  UI  system  uses  these 
records  for  three  purposes:  to  ensure  that  UI  payroll  taxes  are 
properly  paid  by  employers;  to  enable  the  UI  system  to  determine 
the  worker's  benefit  entitlements  at  the  start  of  the  claim;  and  to 
charge  benefit  payments  to  the  appropriate  employer  account.  A 
worker  need  not  have  a  wage  record  each  year.  There  will  be  no  wage 
record  if  the  worker  was  out  of  the  labor  force,  and  therefore  had 
no  earnings;  if  he  worked  in  another  state;  if  he  was  unemployed  for 
a  full  calendar  year;  if  he  was  a  federal  civilian  employee  and 


claimed  benefits  on  the  Unemployment  Compensation  for  Federal 
Employee  (UCFE)  program,  or  a  federal  military  employee  who  claimed 
benefits  on  the  Unemployment  Compensation  for  Ex-servicemen  (UFX) 
program;  and  finally,  if  an  error  occurred  in  the  records.* 

Initial  Claim  Records 

The  initial  claim  record  contains  information  about  employment 
just  prior  to  the  claim,  the  date  and  place  of  claim,  and  claim  en¬ 
titlement.  The  maximum  benefit  amount,  and  maximum  weekly  benefit 
for  the  52  weeks  succeeding  the  data  on  which  the  claim  is  filed  are 
based  on  information  recorded  at  the  time  of  initial  claim. 

Transaction  Records 

Following  each  initial  claim  record  are  transaction  records 
recording  claim  activity. 

There  are  five  types  of  transactions: 

employer 

payments 

additional  claims 

determinations 

reinstatements 

Transactions  are  generally  presented  in  the  chronological  order 
in  which  they  occurred.  It  is  not  unusual  for  a  claimant  to  have  as 
many  as  20  different  transactions  following  an  initial  claim.  Em¬ 
ployer  transactions  report  earnings  from  each  employee  during  the 
base  period  (the  first  four  of  the  last  five  quarters) .  This  infor¬ 
mation  is  used  to  debit  the  employer’s  UI  account.  Payment  trans¬ 
actions  record  the  amount**  and  place  of  payment,  the  date  the 

information  in  the  claimant  record  can  be  used  to  ascertain  why  a 
wage  record  is  missing  for  a  year  preceding  the  claim.  The  "Local 
Program  Code"  variable  indicates  if  the  claim  is  based  on  out-of-state 
earnings.  If  Arizona  earnings  are  the  basis  for  the  claim,  and  no 
wage  records  are  present  for  any  of  the  first  four  of  the  five  quar¬ 
ters  preceding  the  claim  (the  base  period) ,  a  data  processing  error  is 
most  likely  responsible.  Errors  of  this  type,  however,  are  most 
likely  random.  In  periods  where  earnings  can  not  be  crosschecked 
by  claims  data,  the  most  likely  reason  for  the  absence  of  a  wage 
record  is  that  a  worker  is  an  ex-serviceman  or  a  federal  employee. 

It  is  also  possible  that  he  is  out  of  the  labor  force. 

♦♦Payments  usually  equal  the  weekly  benefit  amount  (WBA) .  If  the 
claimant  reports  earnings  that  week,  a  partial  payment  is  made  in¬ 
stead.  Because  total  payments  can  not  exceed  the  maximum  benefit 
amount  (MBA) ,  the  last  payment  can  also  be  less  than  the  WBA,  even 
when  the  claimant  has  had  no  earnings. 
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payment  was  made  and  the  week  of  unemployment  covered  by  the  payment. 
Most  often  payments  are  made  in  the  week  following  a  week  of  unem¬ 
ployment.  It  is  common  for  payments  to  be  delayed  several  weeks. 
Frequently,  when  payments  are  delayed,  a  series  of  payments  are  made 
on  the  same  day.  This  often  is  a  result  of  holding  payments  until 
eligibility  can  be  ascertained. 

Additional  claims  arise  when  a  worker  returns  to  work  following 
a  given  unemployment  spell  and  subsequently  becomes  unemployed 
within  the  benefit  year.  Variables  describing  prior  employment 
similar  to  that  for  the  initial  claim,  are  included. 

Determinations  encompass  four  types  of  activity: 

•  disqualifications 

•  appeals 

•  determination  of  employer  chargeability 

•  determinations  of  eligibility  not  leading  to 
disqualification 

There  are  two  basic  decisions:  one  is  to  determine  employer  tax 
liability  (that  is,  if  benefits  are  chargeable  or  nonchargeable) ,  the 
second  is  to  determine  claimant  payment  eligibility.  In  each  case, 
the  reason  for  the  determination  is  reported,  as  is  the  data  of  the 
decision,  and  the  body  making  the  decision.  If  a  disqualification 
is  made,  the  data  of  disqualification  are  shown.  If  the  transaction 
is  an  appeal,  the  type  of  appeal  is  shown. 

Reinstatement  transactions  are  made  if  the  claimant  does  not 
collect  UI  for  at  least  one  week,  has  had  no  employment,  and  then 
claims  benefits:  In  practice,  it  appears  that  reinstatements  are 
sometimes  substituted  for  additional  claims.  In  most  cases  the 
proper  interpretation  of  these  two  different  transactions  is  clear 
from  their  context.  In  theory,  a  disqualification  should  proceed  a 
reinstatement.  A  worker  may,  however,  be  ill  or  decide  to  leave  the 
labor  force  and  thus  not  claim  for  a  period. 

Ineligible  Claim  Records 

An  ineligible  claim  record  is  similar  to  an  initial  claim  record. 
It  contains  information  about  employment  prior  to  claim,  and  the 
date  and  place  of  claim.  Since  the  claimant  is  not  eligible  for  bene¬ 
fits,  there  is  no  entitlement  information.  Ineligible  claims  data 
are  only  available  for  1969,  1970,  and  1971. 

STRUCTURE  OF  THE  FILE 

A  given  individual  in  the  Arizona  CWBH  claimant  file  can  have 
from  zero  through  eight  wage  records,  and  from  one  through  nine 
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initial  claim  records.  For  each  initial  claim  there  can  be  up  to 
52  payments.  Payments  can  be  divided  among  26  separate  spells;  each 
spell  denoted  by  an  additional  claim  record.  There  is  no  limit  on 
the  number  of  determinations  that  can  occur  during  the  benefit  year, 
and  each  actual  disqualification  can  be  followed  by  a  reinstatement. 

The  number  of  possible  record  patterns  is  almost  infinite.  It  would 
be  extremely  difficult  and  inefficient  to  attempt  to  store  each  ob¬ 
servation  using  an  identical  fixed  format.  Instead,  what  is  called 
a  variable  repetition  format  is  used  that  permits  each  type  of  record 
to  appear  in  any  order.  Information  is  placed  within  the  observation 
to  permit  the  user  to  determine  the  structure  of  the  observation. 

To  make  the  data  easily  readable  using  a  FORTRAN  program,  each 
type  of  record  is  divided  into  a  integral  number  of  36  character 
logical  records.  (Logical  records  can  be  thought  of  as  single  "IBM 
cards.")  Each  header  record,  which  is  described  below,  and  each 
transaction  record,  is  one  logical  record  long.  Each  wage  history 
record  and  each  ineligible  record  consists  of  two  logical  records. 

Each  initial  claim  record  is  three  logical  records  long. 

For  each  worker,  the  first  record  is  always  a  header  record. 

This  header  includes  the  number  of  logical  records  in  the  observa¬ 
tion,  the  worker's  birth  date,  race,  and  sex,  plus  a  set  of  variables 
which  indicate  the  number  of  wage  records,  and  whether  or  not  a  wage 
record  or  claim  exists  for  each  year.  It  is  thus  possible  to  use 
this  header  to  determine  if  a  particular  observation  meets  certain 
selection  criteria  for  analysis.  For  example,  without  reading  the 
entire  observation,  one  can  tell  if  a  given  observation  is  of  a  male 
who  had  a  spell  of  unemployment  in  1969  or  1970  by  checking  the 
header  record. 

Following  the  header  record  are  all  wage  records  in  chronologi¬ 
cal  order.  Wage  records  are  all  presented  in  an  identical  format. 

Next  comes  the  first  initial  claim  record.  The  initial  claim  record 
includes  information  about  the  number  of  transactions  of  each  type. 

This  information  can  also  be  used  to  sort  individual  observations  on 
such  criteria  as  whether  a  worker  was  ever  checked  for  possible  dis¬ 
qualification.  The  length  of  the  initial  claim  record,  plus  all  cor¬ 
responding  transaction  records,  is  presented  as  well.  This  is  done 
to  permit  skipping  over  the  claim  history.  Transaction  records 
relating  to  that  claim  follow  the  initial  claim  record.  In  general, 
these  records  are  in  chronological  order  based  on  the  date  on  which 
action  was  taken.  Within  each  transaction  record  is  an  indicator  of 
the  type  of  record  that  follows.  After  the  last  transaction  of  one 
claim,  the  next  initial  claim  (if  any)  is  presented.  After  the  last 
transaction  of  the  last  claim,  the  ineligible  claim  records  (if 
any)  are  presented.  Figure  1  summarizes  the  format.  Table  1  presents  a 
description  of  the  format.  Note  that  an  attempt  was  made  to  ensure 
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HEADER 

WAGE  HISTORIES 

INITIAL  CLAIM 


TRANSACTIONS 

Employer 


HEADER 

Next  Claimant 


NOTE:  Each  rectangle  represents  one  logical  record.  The  number  in  the  first  field  designates  the 
record  type  (see  table  V. 

Logical  records  are  presented  in  sequence  as  they  would  appear  on  the  physical  tape.  When  a 
record  type  is  comprised  of  more  than  one  logical  record,  the  sequence  is  displayed  horizontally. 


FIG.  1:  SCHEMATIC  OF  CWBH  RECORD  FORMAT 


TABLE  1 

FORMAT  OF  THE  ARIZONA  CWBH  FILE 
A.  CWBH  HEADER  RECORD  FORMAT 


Field 

Number 

Position 

Lenqth 

Name 

Legal 

Values 

Description 

1 

1 

1 

Record  Type 

1 

1  indicates  Header 
Record 

2 

2 

9 

SSN 

Scrambled  Social  Secur¬ 
ity  account  number 

3 

11 

1 

Sex 

1-3 

l=male 

2=female 

3=unknown 

4 

12 

1 

Race 

0-9 

0=white 

l=Indian 

2=Spanish  surname.. 

white 

3=Negro 

4=other  non-white 
5=Spanish  surname, 
non-white 
6-9=Unknown 

5 

13 

5 

Birthdate 

YYDDD  (Julian  date) 

6 

18 

1 

Wage  &  Claim 

YY-year,  DDD-dav 

Indicator 

1963 

7 

19 

1 

Wage  &  Claim 

Indicator 

1964 

8 

20 

1 

Wage  &  Claim 

Indicator 

1965 

9 

21 

1 

Wage  &  Claim 

0=none 

Indicator 

1966 

l=wage  record  only 

10 

22 

1 

Wage  &  Claim 

0-3 

2=claimant  record  only 

Indicator 

1967 

3=both 

11 

23 

1 

Wage  &  Claim 

Indicator 

1968 

12 

24 

1 

Wage  &  Claim 

Indicator 

1969 

13 

25 

1 

Wage  &  Claim 

Indicator 

1970 

14 

26 

1 

Wage  &  Claim 

Indicator 

1971 

15 

27 

1 

Number  of  Ineligible 

0-3 

Claim  Records 


TABLE  1  (cont.) 


A.  CWBH  HEADER  RECORD  FORMAT 
(continued) 


Field 

Number 

Position 

Length 

Name 

Legal 

Values  Description 

16 

28 

3 

Number  of  Information 

0-999 

See  field  19  below 

17 

31 

1 

in  Observation 

Number  of  Wage  Records 

0-9 

for  list  of  record 
types 

18 

31 

4 

Filler 

Zero  filled  to  com¬ 

.  19 

36 

1 

Next  Record  Indicator 

2-9 

plete  (fill  out) 
logical  record 

0=current  record 

type  is  continued 

on  next  record 
l=header 
2=wage  record 
3=initial  claim 
4=employer  transac¬ 
tion 

5=payment 
6=determination 
7=additional  claim 
8=reinstatement 
9=ineligible  claim 
A  wage  record 
(type  =2)  is  most 
likely  to  follow  a 
header  record. 
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TABLE  1  (cont) 


B. 

CWBH  WAGE 

HISTORY  RECORD  FORMAT 

Field 

Legal 

Number  Position  Length 

Name 

Values 

Description 


1 

1 

1 

Record  Type 

2 

2  indicates  wage  history 
record 

2 

2 

2 

Year 

63-71 

Year  of  wage  history 

3 

4 

1 

Number  of  Industries 

0-9 

0  denotes  10  or  more  two- 
digit  Standard  Industrial 
Classification  (SIC)  indus¬ 
tries 

4 

5 

1 

Number  of  Employers 

0-9 

0  denotes  10  or  more 

5 

6 

2 

Number  of  Wage  Items 

The  number  of  quarterly 
wage  reports  from  all 
employers 

6 

8 

5 

First  Quarter  (Ql) 

Total  earnings  to  nearest 

Wages 

dollar* 

7 

13 

2 

Ql  Industry 

Two-digit  SIC  industry 

8 

15 

5 

Q2  Wages 

9 

20 

2 

Q2  Industry 

10 

22 

5 

Q3  Wages 

11 

27 

2 

Q3  Industry 

12 

29 

5 

Q4  Wages 

13 

34 

2 

Q4  Industry 

14 

36 

1 

Next  Record  Type  Indicator  Q 

Wage  history  is  continued 

i 

RECORD 

1  TOTAL 

36 

15 

1 

1 

Number  of  Quarters  Worked 

Employer  from  which  most 

for  Primary  Employer  (PE)  1-4 

earnings  were  received 

16 

2 

2 

PE  Wage  as  %  of  Total 

00-99 

00  denotes  100% 

17 

4 

2 

PE  High  Quarter 

00-99 

Percent  of  high  quarter 

(HiQ) 

wage  from  PE,  99=100% 

18 

6 

5 

PE  ID 

19 

11 

4 

PE  SIC 

20 

15 

2 

Secondary  Employer  (SE) 
Wage  as  %  of  Total 

00-99 

21 

17 

2 

SE  SIC 

22 

19 

1 

SE  Quarters  Worked 

1-4 

23 

20 

1 

Employer/Industry 

1-2 

1  indicates  following  3 

Indicator 

fields  apply  to  tertiary 

Vindicates  following  fields 
apply  to  primary  industry 


24 

21 

2 

Percent  of  Wages 

00-99 

25 

23 

2 

SIC 

26 

25 

1 

Quarters  Worked 

1-4  • 

27 

26 

10 

Filler  Types 

28 

36 

1 

Next  Record  Type 

2-9 

See  item  A-19 

— 

Indicator 

(2  or  3  most  likely) 

RECORD 

2  LENGTH 

36 

•All  dollar  figures  are  reported  to  nearest  dollar  except  D-3  below. 
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TABLE  1  (CONT.) 


w 


C.  CWBH  INITIAL  CLAIM  RECORD  FORMAT 
Field  Legal 

Number  Position  Length  Name  Values  Description 


1 

1 

1 

Record  Type 

3 

3  indicates  claim  record 

2 

2 

5 

Last  Day  Worker 

j Julian  (YYDDD)  or 

3 

7 

5 

Date  of  Claim 

(MMDDY  M=month,  D=Day , 

Y=year 

4 

12 

5 

Effective  Date 

Julian  Date  from  which 

UI  payments  begin  (YYDDD) 

5 

17 

3 

Last  Quarter  of  Base 

YYQ-YY=year,  Q=quarter; 

Period 

base  period  ends  in  quar¬ 
ter  preceding  first  full 
quarter  prior  to  date  of 
claim 

6 

20 

4 

Local  Office 

See  note  C-l 

7 

24 

7 

Occupation  Code 

See  note  C-2 

“ 

8 

31 

4 

Last  Industry  SIC 

9 

35 

1 

Reason  for  Separation 

1-3 

l=lay-off 

2=voluntary  quit 

3=discharge 

10 

36 

1 

Next  record  indicator 

0 

Type  3  record  continues 

RECORD 

1  TOTAL 

36 

11 

1 

4 

SIC  of  HI  Wage ' Employer 

12 

5 

5 

Base  Period  Wages 

13 

10 

5 

HiQ  Wage 

14 

15 

4 

Maximum  Benefit  Amount 

(MBA) 

15 

19 

2 

Weekly  Benefit  Amount  (WBA) 

16 

21 

4 

MBA  Balance 

MBA  less  payments 

17 

25 

4 

Deductions 

18 

20 

4 

Amount  Restored 

19 

33 

1 

Transition  Code 

0-1 

0=no  transition 
l=transition 

20 

34 

1 

Local  Program  Code 

1-7 

1  UI  -  Regular  UI 

2  UCFE-Federal  Worker  UI 

3  UI  &  UCFE 

4  UCX  Ex-serviceman  UI 

5  UI  &  UCX 

6  UCX  &  UCFE 

7  UI  6  UCFE  &  UCX 

• 

21 

35 

1 

Program  Code 

1-7 

See  item  A19 

V 
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TABLE  1  (cont.) 


C.  CWBH  INITIAL  CLAIM  RECORD  FORMAT 
(continued) 


Field  Legal 

number  Position  Length  Name  values  Description 


22 

36 

1 

Next  record  indicator 

0 

Type  3  record  continues 

RECORD 

2  TOTAL 

15 

23 

1 

1 

Potential  double  dipper 

1-2 

l»normal  claim 

2«*potential  double  dipper 

(a  double  dipper  is  a 
worker  who  can  establish 
a  second  benefit  year 
without  returning  to 
work  by  using  earnings 
between  end  of  base 
period  and  claim) 

24 

22 

5 

AZ-UI  wages 

Wages  derived  from  employer 
records  covered  by  Arizona 
UI  system 

25 

7 

5' 

OS-UI  wages 

wages  derived  from  em¬ 
ployer  records  covered 
by  state  01  system  other 
than  Arizona's 

26 

12 

6 

Length  of  claim  record 

Number  of  characters  in 
all  transaction  records 

27 

18 

2 

Number  of  transaction  records 

28 

20 

2 

Number  of  employer  records 

29 

22 

2 

Number  of  payment  transactions 

30 

24. 

2 

Number  of  decision  transactions 

31 

26 

2 

Number  of  reinstatement 
transactions 

32 

28 

2 

Number  of  additional  claim 
transactions 

33 

30 

6 

Filler 

34 

36 

1 

Next  record  type  indicator 

1,3- 

9  see  item  A-19 

15 

(4  is  most  likely) 

RECORD 

3  TOTAL 

13- 


TABLE  1  (cont.) 


NOTE  C-l 


LOCAL  UI  OFFICES 


The  left  most  two  digits  designate  the  main  office  (MMXX) . 
The  main  office  codes  are  listed  below.  The  digit  second. from  the 
right  designates  the  sub-office  (XXSX) .  9  indicates  a  mail  claim; 

1-8  walk-in  offices.  The  precise  location  of  each  office  is  avail¬ 
able  from  the  Arizona  Department  of  Employment  Security,  1717  West 
Jefferson,  Phoenix,  Arizona,  85005* 


MAIN  OFFICE  CODES 


10 

Window  Rock 

55 

Mesa 

15 

Winslow 

60 

Glendale 

20 

Flagstaff 

65 

Casa-Grande 

25 

Prescott 

70 

Douglas 

30 

Kingman 

75 

Sierra-Vista 

35 

Stafford 

80 

Tuscon 

40 

Globe 

85 

Nogales 

45 

Phoenix  -  Industrial 

90 

Yuma 

50  Phoneix  -  Public  Service  &  Commercial 

The  right  most  digit  designates  the  claimant's  county  of 
residence  (XXXR) .  The  county  codes  are  listed  below; 


COUNTY  RESIDENCE 

A 

Apache 

K 

Mohave 

B 

Cochise 

N 

Navajo 

C 

Coconino 

P* 

Pima 

G 

Gila 

R 

Pinal 

H 

Graham 

S 

Santa  ( 

J 

Greenlee 

V 

Yavapi 

M 

Maricopa 

Y 

Yuma 

NOTE  C-2 

OCCUPATION  CODES 

Occupation  codes  correspond  to  the  format  of  the  BLS  Dic¬ 
tionary  of  Occupational  Titles  1965,  the  left  most  two  digits  desig¬ 
nate  the  major  occupation  group  (MMXXXXX) .  The  key  groupings  are 
listed  below:. 


0-15  =  profess-technical 
16-19  =  administrative 
20-24  =  clerical 
25-29  =  sales  -  merchandising 
30-38  =  services 
40-46  =  miscel-farm-etc. 

47-49  =  ina-occup 

50-59  =  processing-type 

60-69  =  machine-trade 

70-79  =  bench-work 

80-89  *=  structural-work 

90-99  =  not  elsewhere  classified 
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TABLE  1  (cont.) 


D.  CWBH  EMPLOYER  TRANSACTIONS 


Field 

Number  Position  Length 


1 

2 

3 

4 

5 


1 

2 

7 

14 

36 


1 

5 

7 

22 

1 


Name 

Record  Type 
Employer  ID 
Employer  Earnings 
Filler 

Next  Record  Indicator 


Legal 

Values 


Description 

Indicates  employer 
transaction 

Dollars  and  cents 
with  no  decimal 
point* 

See  item  A-19 
(4  or  5  most 
likely) 


‘Should  be  read  in  Fortran  with  format  F7.7  written  with  F8.2  format. 


E.  CWBH  PAYMENT  TRANSACTION 


Field 

Number  Position  Length 


Name 


Legal 

Values 


Description 


1 

1 

1 

Record  Type 

5 

5  indicates  payment 
transaction 

2 

2 

5 

Week  Ending  Date 

Julian  week  covered 
by  payment  (yyoDD) 

3 

7 

5 

Date  Paid 

Julian  (YYDDD) 

4 

12 

2 

Amount  Paid 

0-60 

Dollars 

5 

14 

3 

Earnings  for  Week 

0-99 

Dollars 

6 

17 

1 

Disqualification  Code 

See  item  F.-7 

7 

18 

1 

Special  Handling  Code 

l=labor  dispute 
2=short  week 
$=first  pay 
>=final  pay 
-  =recorder 
9*replacement 

8 

19 

2 

Local  Office 

See  note  C-l 

9 

21 

15 

Biller 

10 

36 

1 

Next  Record  Type 

1,3-9 

See  item  A-19 
(5  most  likely) 

TOTAL 

LENGTH 

36 

15 


TAuLIj  1  (cont* ) 

r.  CWBH  DECISION  TRANSACTION  FORMAT 


Field 

Legal 

Description 

Number  Position  Length 

Name  Values 

1 

1 

1 

Record  Type  6 

6  indicates  decision 
transaction 

2 

2 

5 

Start  date  of  dis¬ 
qualification 

Julian  (YYDDD) 

3 

7 

5 

End  Date  of  Disqualifi¬ 
cation 

Julian  (YYDDD) 

4 

12 

5 

Date  of  Decision  0-9 

MMDDY 

4 

17 

1 

Type  of  Decision 

0=decision  to  charge 

benefits 
l=determination 
2=overpayment  (OP)  due 
to  trend 

3=OP  but  no  fraud 
4=OP  non- fraud  AD 
5=labor  dispute 
6=special  programs 
7=double  dipper 
8=decision  to  "non¬ 
charge"  benefit 
9=earnings  investiga- 
z  tions 

6  18  1  Level  of  Decision  1-5  l=local  office 

2=appeal 
3=UI  Commission 
4=Superior  Court 
5=Supreme  Court 

A  voluntary  quit 
B  discharge 
C  quit  due  to  compel¬ 
ling  personal  reason 
D  able 
E  available 
£  refusal 

G  administrative  pen¬ 
alty  (due  to  fraud) 

H  labor  dispute 
I  report  required 
J  vacation  pay 
K  intervening  employ¬ 
ment  . 

L  retirement 
M  intervening  employmeni 
Q  requalification 
(double  dipping) 

S  seasonal  v 

Z  other 


7  19  1  Issue  Code 


i 


16 


TABLE  1  leant.) 


F. 

CWBH  DECISION  TRANSACTION 
(continued) 

FORMAT 

Field 

Number 

Position 

Leng 

fth  Name 

Legal 

Values 

Description 

8 

20 

1 

Type  of  Appeal 

Same  as  F-4 

9 

21 

2 

Local  Office  Code 

See  note  C-l 

10 

23 

13 

Filler 

11 

36 

1 

Next  Record  Type 

1,3-9 

See  item  A-19 
(5  or  8  most 
likely) 

G.  CWBH  ADDITIONAL  CLAIM  TRANSACTION 


Field  Legal 

Number  Position  Length  Name  values 

11  1  Record  Type  7 


2 

2 

5 

Effective  Date 

3 

7 

5 

Last  Day  Worker 

4 

12 

5 

Date  of  Claim 

5 

17 

5 

Last  Employer  ID 

6 

22 

4 

Last  Employer  SIC 

7 

26 

1 

Reason  for  Separation  1-3 

8 

27 

2 

Local  Office  1-3 

9 

29 

7 

Filler 

10 

36 

1 

Next  Record  Indicator  1,3-9 

TOTAL 

LENGTH 

16 

indicates  additional 
claim 

Julian  -  See  item  C-4 
Julian 


Julian 


See  item  C-3 
See  note  C-l 

See  item  A-19 
(5  most  likely) 
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TABLE  1  (cont. ) 


H.  CWBH  REINSTATEMENT  TRANSACTION 


1 

1 

1 

Record  Type 

8 

22 

2 

5 

Effective  Date 

3 

7 

2 

Local  Office 

4 

9 

27 

Filler 

5 

36 

1 

Next  Record  Indicator 

1,3-9 

TOTAL  LENGTH 

36 

8  indicates  reinstate¬ 
ment 

Julian  YYDDD  -  See 
item  C-4 
See  note  C-l 


See  item  A-19 
(5  most  likely) 
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TABLE  1  (cont. ) 


I.  CWBH  INELIGIBLE  CLAIM  RECORDS 
Field  Legal 


number 

Position  Length 

Name  values 

Description 

1 

1 

1 

Record  type  9 

9  indicates  ineligible 
claim 

2 

2 

5 

Effective  date 

Julian  -  see  item  C-4 

3 

7 

5 

Base  year  ending  date 

Julian 

4 

12 

5 

Last  day  worked 

Julian 

5 

17 

5 

Total  wages 

Dollars 

6 

22 

5 

HiQ  wages 

Dollars 

7 

27 

5 

Arizona  UI  wages 

Dollars 

8 

32 

4 

Local  office 

See  note  C-l 

9 

36 

1 

Next  record  indicator  0 

RECORD 

1  LENGTH 

36 

10 

1 

7 

Occupation  code 

See  note  C-2 

11 

8 

5 

Arizona  HiQ  wages 

Dollars 

12 

13 

4 

Other  state  UI  wages 

13 

17 

5 

Last  employer  ID 

14 

22 

4 

Last  employer  SIC 

15 

26 

4 

Primary  employer  SIC 

16 

30 

4 

Primary  industry  SIC 

17 

34 

2 

Filler 

18 

36 

1 

Next  record  indicator  1.-9 

See  item  A- 19 

(1  or  9  most  likely) 


RECORD  2  LENGTH  T? 


that  the  data  conform  to  the  format  as  defined  by  the  Arizona  Bureau 
of  Employment  Security.  Nevertheless,  it  is  possible  that  some 
erroneous  coding  was  not  detected.  There  may  be  some  instances 
where  numeric  fields  contain  non-numeric  data.  Dates  may  have  this 
characteristic.  Dates  may  also  be  Julian  (year,  day) .  When  they 
should  be  month,  day,  year  or  vice  versa,  in  most  cases,  consistency 
checks  can  be  made. 

DETAILED  DESCRIPTION  OF  THE  ARIZONA  LEED  FILE 

The  Arizona  LEED  file  resembles  the  Arizona  CWBH.  Its  header 
record  and  wage  records  are  similar  in  structure  and  content  to  those 
in  the  CWBH.  Each  observation  begins  with  a  fixed  format  header 
record  providing: 

•  demographic  data  about  the  individual 

•  information  about  the  total  number  of  individual  employer 
records  and  the  number  of  employer  records  each  year 

•  information  about  industries  in  which  the  worker  was 
employed . 

Following  the  header  record  is  a  variable  number  of  employer 
records.  There  is  one  record  for  each  employer  for  each  year.  Each 
employer  record  indicates: 

•  the  employer's  location,  industry  and  firm  identifier 

•  the  employee's  quarterly  earnings  up  to  the  taxable  limit.* 

All  data  in  both  header  and  employer  records  are  integers.  Both 
record  formats  are  the  same  length:  58  BCD  characters.  Figure  2 
illustrates  the  basic  structure  and  table  2  describes  the  format  in 
detail.  To  locate  the  boundary  between  the  observations,  one  can 
either  skip  the  number  of  records  equal  to  the  value  of  item  A9  in 
table  2,  "Total  Employer  Count,"  or  read  each  employer  record  until 
item  Bl,  "Record  Type,"  equals  2.  In  both  cases,  the  following 
record  will  be  the  header  record  of  the  next  observation. 


*For  details  of  how  the  taxable  limit  affects  the  reporting  of 
quarterly  earnings,  see  Note  E  of  table  2. 
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TABLE  2 


FORMAT  OF  THE  ARIZONA  LEED  FILE 


A.  LEED  HEADER  RECORD  FORMAT 


Field 

Number 

Position 

Length 

Name 

Legal 

Values 

Description 

1 

1 

1 

Record  Type 

3-7 

Precise  value  has  nO 
meaning 

2 

2 

2 

Year  Count 

1-16 

Total  number  of  years 
employee  has  employer 
records 

3 

4 

9 

SSN 

Social  Security  number 
(scrambled) 

4 

13 

4 

Birth  Year 

744-971 

744  ■  unknowrv  last  three 
numbers  of  year;  i.e., 
1947  -  947 

'  5 

17 

1 

Sex 

1-3 

1  =  male 

2  *  female 

3  «=  unknown 

6 

18 

1 

Kkce 

1-3 

* 

]r  =  white 

2  *  negro 

3  ■  other  than  1  or  2 

7 

19 

2 

Birth  Month 

1  *  January 

2  =  February 

3  *  March 

4  *  April 

5  *=  May 

6  “  June 

7  *  July 

8  *  August 

9  *  September 

10  *  October 

11  *=  November 

12  *  December 

8 

21 

2 

Group  Number 

1-28 

See  Note  A 

9 

• 

23 

2 

Total  Employer 

Count  1-99 

Total  number  of  employers 
for  this  employee 

(9.9  *  99  or  more) 
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TABLE  2  (cont.) 


A.  LEED  HEADER  RECORD  FORMAT  (cont.) 


Field  Legal 

Number  Position  Length  Name  Values 


10 

25 

1 

Number 

of 

Employers 

1957 

0-9 

11 

26 

1 

Number 

of 

Employers 

1958 

0-9 

12 

27 

1 

Number 

of 

Employers 

1959 

0-9 

13 

28 

1 

Number 

of 

Employers 

1960 

0-9 

14 

29 

1 

Number 

of 

Employers 

1961 

0-9 

15 

30 

1 

Number 

of 

Employers 

1962 

0-9 

16 

31 

1 

Number 

of 

Employers 

1963 

0-9 

17 

32 

1 

Number 

of 

Employers 

1964 

0-9 

18 

33 

1 

Number 

of 

Employers 

1965 

0-9 

19 

34 

1 

Number 

of 

Employers 

1966 

0-9 

20 

35 

1 

Number 

of 

Employers 

1967 

0-9 

21 

36 

X 

Number 

of 

Employers 

1968 

0-9 

22 

37 

1 

Number 

of 

Employers 

1969 

0-9 

23 

38 

1 

Number 

of 

Employers 

1970 

0-9 

24 

39 

1 

Number 

of 

Employers 

1971 

0-9 

25 

40 

1 

Number 

of 

Employers 

1972 

0-9 

Industry  Indicator: 


26 

41 

1 

SIC 

0100-0999 

Farming  0 

27 

42 

1 

SIC 

1000-1499 

Mining 

28 

43 

1 

SIC 

1500-1799 

Construction 

29 

44 

1 

SIC 

2000-2399 

Food,  Textiles 

30 

45 

1 

SIC 

2400-2799 

Wood  Prods. 

31 

46 

1 

SIC 

2800-3299 

Chemicals,  Etc 

32 

47 

1 

SIC 

1900-1999 

3300-3999 

Heavy  Manuf 

33 

48 

1 

SIC 

4000-4999 

Transport 

34 

49 

1 

SIC 

5000-5999 

Trade 

35 

50 

1 

SIC 

6000-6799 

Finance 

36 

51 

1 

SIC 

7000-8999 

Service 

37 

52 

1 

SIC 

9100-9999 

Admin  &  Other 

38 

53 

6 

1971 

.  Data 

TOTAL  58 


Description 

9  =  nine  or  more 
9  =  nine  or  more 
9  =  nine  or  more 
9  =  nine  or  more 
9  =  nine  or  more 
9  =  nine  or  more 
9  =  nine  or  more 
9  =  nine  or  more 
9  =  nine  or  more 
9  =  nine  or  more 
9  =  nine  or  more 
9  =  nine  or  more 
9  =  nine  or  more 
9  =  nine  or  more 
9  =  nine  or  more 
9  =  nine  or  more 


0  =  no  employment 
in  SIC  ranqe 

1-9 

employment  in  at 
least  SIC  AXYZ 
where : 

A=lst  digit  of  range 
X=data  value 
Y=l-9 
Z=l-9 

e.g.  for  farming 
7  indicates  0700- 
0799 


See  Note  B 


TABLE  2  (cont.) 

B.  LEED  EMPLOYER  RECORD  FORMAT 


Field 

Number 

Position 

Length  Name 

Legal 

Values 

Description 

1 

1 

1  Record  Type 

1-2 

1  ■  employer  record  except 

last  record 

2  ■  last  employer  record 

for  employee 

2 

2 

2  Year 

57-72 

The  year  in  which  the 
employee  was  employed 

3 

4 

9  EIN 

Employer  identification 

4  13  4  Unit 


5  17  5  State ,  County  Code 


number  (scrambled) 

Starting  in  1970  separate 

establishments  maintained 

by  same  employer  are 

identified  (ignore  pre- 

1970  data) 

% 

See  Note  C 


6  22  4  SIC 


26  1  Schedule 


Standard  Industrial 
Classification  Code 
0001  ■  regular  military 
0002  *  reserve  military 
0003  ■  unknown 
All  other  cases,  valid 
4-digit  1967  Standard 
Industrial  Classification 
Code 

0-3  0  -  941  civilian  report 

1  «  943  farm  labor  report 

2  -  941  military  report 

3  ■  household  report 


TABLE  2  (cont.) 


B.  LEED  EMPLOYER  RECORD  FORMAT  (cont. ) 


Field 

Number 

Position 

Length 

Name 

Legal 

Values 

Description 

8 

27 

1 

Coverage 

0-9 

1  =  farm  labor 

2  =  state  &  local  gov't 

3  =  reported  tips 

4  =  regular  military 

5  =  non-profit  organization 

6  =  federal  civilian 

7  =  self-reported  tips 

8  =  household 

9  =  reserve  military 
0  =  other 

9  28  2  Size  of  Employer  0-56  0  =  unknown 

1-49  =  1-49 

50  =  50-99 

51  =  100-249 

52  »  250-499 

53  =  500-999 

54  =  1000-2499 

55  =  2500-4999 

56  =  5000-over 


10 

30 

3 

SMSA  Code 

See  Note  D 

11 

33 

5 

1st 

Quarter 

• 

0  -Taxable 

Actual  wages  (earnings)  to 

Wages 

Limit 

nearest  dollar  unless  tax¬ 

12 

38 

5 

2nd 

Quarter 
Wages  < 

able  limit  reached  (See  Note 
E  for  explanation) 

13 

43 

5 

3rd 

Quarter 

Wages 

14 

48 

5 

4th 

Quarter 

Wages 

15 

53 

1 

Number  of  Wage 

0-4 

Number  of  quarters 

Items 

showing  earnings 

16 

54 

5 

Size  Table 

Used,  in  prior  research  - 

Ignore 

TOTAL  58 
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TABLE  2  (cont.) 


NOTE  A:  FILE  DEFINITIONS  (Item  A8) 

Criteria  used  to  assign  each  worker  to  one  of  28  groups. 


SEX-RACE 

Al.  WHITE  -  HALE 
A2.  NON-WHITE  -  MALE 
A3.  WHITE  -  NON-MALE 
A*.  NON-WHITE  -  NON-MALE 


AGE  AS  OF  1962 

Bl.  LESS  THAN  20 

B2.  20  -  53  (PRIME  AGE  GROUP) 

B3.  GREATER  THAN  53  AND  UNKNOWN 

FURTHER  DIVISION  OF  THOSE  IN  CATEGORY  el  AND  B3  STOPS  HERE. 

NUMBER  OF  CONSECUTIVE  YEARS  OF  EARNINGS  DATA  1960-1970 

(THERE  MUST  BE  AT  LEAST  ONE  NON-ANNUAL 
REPORTING  RECORD  EACH  YEAR) 

Cl.  LESS  THAN  4  YEARS 
C2.  4-10  YEARS  / 

C  3.  ALL  II  YEARS 

FURTHER  DIVISION  OF  THOSE  IN  CATEGORY  Cl  ANC  C2  STOPS  HERE. 


LOCATION  1962-1966 

Dl.  EVER  IN  AN  SMSA 
D  2.  NEVER  IN  AN  SMSA 

FURTHER  DIVISION  OF  THOSE  IN  CATEGORY  C2  STOPS  HERE. 


EMPLOYER  SIZE  1962-1966 

El.  ANY  AT  LEAST  50C  EMPLOYEES 
E  2.  ALL  LESS  THAN  5C0  EMPLOYEES 

THIS  WILL  CREATE  A  TOTAL  OF  28  SEPERATE  GROUPS 


1. 

Al, 

Rl. 

2. 

Al, 

82, 

Cl. 

3. 

Al, 

82, 

C2  . 

4. 

Al, 

82, 

C3, 

Dl, 

El. 

5. 

Al, 

02, 

C3  , 

01, 

E2  • 

6. 

Al, 

82, 

C3 , 

02. 

7. 

Al, 

83. 

8. 

A2 , 

Bl. 

9. 

A2, 

82, 

Cl. 

ETC 
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TABLE  2  (cont.) 


NOTE  B  -  1971  DATA  (Item  A301) 

If  the  worker  has  at  least  one  employer  In  1971,  the  following  information  is  included: 

Field  Legal 

Number  Position  Length  Value  Description 

1  53  1  Employer/Establishment  Code  0-8  A«employer  ID  is  only  ID  for  employer 

B-omployer  ID  is  not  only  ID  for 
employer 

C-A  and  B  not  known 
D»employer  has  only  one  establish¬ 
ment  (unit) 

E-enp lover  has  mnr»  than  one  estab¬ 
lishment  (units) 

F-D4E  not  known 
u-c+F 

1- C+D 

2- C+E 

3- A+F 

4- A+D 

5- A+E 

6- B+F 
7«B+n 
•  -  B+K 

Year  of  Entitlement  or  Death  0,39-  Omloes  not  apply 

72  34-72-last  two  digits  of  year 

(entitlement  is  when  worker  files 
a  valid  claim  for  benefits) 

Insurance  Status  0-7  .  A«fully  -  should  have  sufficient  quar¬ 

ter  to  be  entitled  when  retired 
B-currcntly  -  has  sufficient  recent 
quarters  to  collect  disability 
Opsrmansntlv  -  has  sufficient  quar¬ 
ters  to  collect  when  retirement 
age  is  reached 
0-unknown 

1- A+B 

2- B  only 

3- A  but  not  B 

4 - 'uninsured 

5- C+B 

6- C  but  not  B 

7- doceased  (See  the  Social  Security 

.  Handbook,  5th  edition,  1974,  for 

full  description  of  these  terms 

4  57  1  Benefit  Status  1971  0-0  0~non-entitled  living 

1- living  entitled 

2- doceased  entitled,  previously 
living  entitled 

3-  deceased  entitled  (survivor)  worker 
fully  insured  not  previously 
entitled,  to  DAB  -  is  worker's 
dependent's  claims  death  or 

,  survivor  benefits 

4- deccased  entitled  worker  was  cur¬ 
rently  but  not  fully  insured 

5- dcceaued  entitled  worker  fully 
insured  death  prior  to  1950 

C-living  worker  entitled  to  disability 
Insurance 

7-non-entitled,  claim  disallowed 
8=non-cntitled,  proof  of  death 
9-lump  sum  1935  Act 


2  54  2 

3  56  1 
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TABLE  2  (cont.) 

NOTE  C:  STATE  AND  COUNTY  CODES  (Item  B5) 

The  two  leftmost  digits  of  the  state-county  code  identify 
the  state  and  the  three  rightmost  digits  identify  the  county  (SSCCC) . 
The  following  table  lists  the  state  codes  used  in  the  LEED  file.  The 
county  codes  are  described  in  the  publication  "Geographic  Codes  Used 
to  Classify  Records  of  Employers,  Workers,  and  Self-Employed  Persons," 
SS  PUB  69-53  (10-69) ;  Social  Security  Administration,  Office  of 
Research  and  Statistics,  1969.  Records  of  military  personnel  and 
employees  of  some  multi-unit  employers  do  not  indicate  state  and 
county.  They  are: 


00001  =  regular  military 

00002  =  reserve 

military 

00003  -  unknown  multi- 

unit  enrol  over 

State 

State 

Code 

State 

Code 

State 

*02 

Alaska 

51 ' 

Delaware 

11 

Maine 

52 

Maryland 

12 

New  Hampshire 

53 

Virginia 

13 

Vermont 

55 

West  Virginia 

14 

Massachusetts 

56 

North  Carolina 

15 

Rhode  Island 

57  • 

South  Carolina 

16 

Connecticut 

58 

Georgia 

21 

New  York 

61 

Kentucky 

22 

New  Jersey 

63 

Tennessee 

23 

Pennsylvania 

64 

Alabama 

24 

American  Samoa 

65 

Mississippi 

*25 

Alaska 

71 

Arkansas'- 

26 

Hawaii 

72 

Louisiana 

27 

Puerto  Rico 

73 

Oklahoma 

28 

Virgin  Islands 

74 

Texas 

29 

Guam 

81 

Montana 

31 

Ohio 

82 

Idaho 

32 

Indiana 

83 

Wyoming 

33 

Illinois 

84 

Colorado 

35 

Michigan 

85 

New  Mexico 

36 

Wisconsin 

86 

Arizona 

41 

Minnesota 

87 

Utah 

42 

Iowa 

88 

Nevada 

43 

Missouri 

90 

District  of  Columbia 

45 

North  Dakota 

91 

Washington 

46 

South  Dakota 

92 

Oregon 

47 

Nebraska 

93 

California 

48 

Kansas 

98 

International  Operations 

50 

Flor Ida 

99 

Ships  at  sea 

•Alaska: 

Through  1968  -  25 
After  1968  -  02 
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TABLE  2  (cont.) 


NOTE  D:  SMSA  CODES  (Item  BIO) 

SMSA  Codes  were  assigned  in  order  based  on  1970  popula¬ 
tion.  The  complete  SMSA  listing  follows.  The  counties  included  in 
each  SMSA  are  described  in  Federal  Information  Processing  Standards 
Publication  8-2,  1  Nov.  '72,  "Standard  Metropolitan  Statistical 
Areas,"  (FIPS  Pub)  8-2.  In  Massachusetts  and  Connecticut,  town¬ 
ships  in  a  single  county  are  sometimes  assigned  to  different  SMSA's. 
In  such  cases,  the  entire  county  is  assigned  to  the  SMSA  whose 
geographic  center  is  closest. 


SMSA 


ID'S  ON  LEED 
FILE 


New  York  City,  NY 

Los  Angeles-Long  Beach, Cal. 

Chicago,  Ill. 

Philadelphia , Pa . 

Detroit,  Mich. 

Boston,  Mass. 

San  Fancisco-Oakland,Cal. 

Washington ,D.C. 

Nassau-Suf folk, NY 
St.  Louis,  Mo. 

Pittsburgh, Pa. 

Dallas-Ft.  Worth, Tex. 

Baltimore, Md. 

Cleveland, Ohio 

Newark (Essex-Morris-Union)NJ 
Houston,  Tex. 

Minneapolis-St.  Paul,  Minn. 

Atlanta,  Ga. 

Seattle-Everett,  Wash. 

Anaheim-Santa  Ana-Garden  Grove, Cal. 
Milwaukee,  Wise. 

Cincinnati,  Ohio 
San  Diego,  Cal. 

Buffalo, NY 

Kansas  City,  Mo-Kans. 

Miami,  Fla. 

Denver,  Colo. 

San  Bern. -Riv. -Ont.. , Cal. 
Indianapolis,  Ind. 

Tampa-St.  Petersburg,  Fla. 

San  Jose,  Cal. 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 


TABLE  2  (cont.) 


New  Orleans,  La. 

Columbus, Ohio 
Portland,  Oregon 
Phcenix,  Ariz. 

Rochester, NY 
San  Antonio ,  Tex . 

Louisville ,  Ky 
Dayton,  Ohio 
Memphis ,  Tenn. 

Hartford,  Conn 
Sacremento ,  Cal . 

Bridgeport,  Conn 
Albany-Schenectady-Troy,  NY 
Providence ,  RI 
Birmingham,  Ala. 

Toledo ,  Ohio 
New  Haven ,  Conn 
Greensboro-High  Point,  NC 
Salt  Lake  City,  Utah 
Nashville ,  Tenn . 

Oklahoma  City,  Okla. 

Norfolk-Portsmouth,  Va. 

Akron ,  Ohio 
Worcester,  Mass. 

Syracuse,  NY 

Gary-Hammond-East  Chicago,  Ind. 
Honolulu,  Ha. 

Northeast,  Pa. 

Jacksonville,  Fla. 

Fort  Lauderdale-Hollywood,  Fla. 

Jersey  City  (Hudson)  NJ. 
Allentown-Bethlehem-Easton,  Pa. 
Prth-Amby (Mdsx-Nwbrnswk-Smrst)  NJ 
Springf ield-Chicopee-Holyoke , Mass .Conn. 
Charlotte,  NC 
Tulsa,  Okla. 

Omaha, Nebr-Iowa 
Richmond ,  Va . 

Grand  Rapids,  Mich. 

Youngstown-Warren,  Ohio 
Flint,  Mich. 

Wilmington,  Del 
Greenville-Spartanburg,  SC 
Long  Branch-Asbury  Park,  NJ 
Pttrsn(Clfton-Passaic-Seroen)  NJ 


32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 
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TABLE  2  (cont . ) 


Orlando,  Fla.  77 
Fall  River,  Mass  78 
Lansing,  Mich  79 
Raleigh-Durhara,  NC  80 
Fresno,  Cal.  81 
Tacoma,  Hash.  82 
Harrisburg,  Pa.  83 
Knoxville,  Tenn.  84 
Canton,  Ohio  85 
Wichita,  Kans  86 
Oxnard-Simivalley-Ventura,  Cal.  87 
Mobile,  Ala  88 
Baton  Rouge,  La.  89 
Chattanooga,  Tenn-Ga.  90 
Davenport-Rck  Islnd-Moline , Io,Il.  91 
Fort  Wayne,  Ind.  92 
El  Paso,  Tex.  93 
Tucson,  Ariz.  94 
West  Palm  Beach-Boca  Raton,  Fla.  95 
Beaumont-Port  Arthur-Orange,  Tex.  96 
Peoria,  Ill.  97 
Utica-Rome,  NY  §8 
Charleston,  SC  99 
Shreveport,  La.  100 
.Brockton,  Mass.  101 
Albuquerque,  N.Mex.  102 
Newport  News-Hampton ,  Va  103 
Bakersfield,  Cal.  104 
York,  Pa.  105 
Little  Rock,  Ark.  106 
Austin,  Tex.  107 
Columbia,  SC  108 
Lancaster,  Pa.  109 
Des  Moines,  Iowa  110 
Trenton,  NJ  111 
Binghamton,  NY  112 
Reading,  Pa  113 
Stockton,  Cal.  114 
Madison,  Wise  115 
Spokane,  Wash.  116 
Huntington-Ashland,W.Va.-Ky-Ohio  117 
Evansville,  Ind-Ky  118 
Corpus  Christi,  Tex.  119 
Huntsville,  Ala.  120 
South  Bend,  Ind.  121 
Appleton-Oshkosh,  Wise.  122 
Augusta,  Ga-SC  123 
Las  Vegas,  Nev.  124 
Rockford,  Ill.  125 
Lexington,  Ky  126 
Duluth-Superior,  Minn-Wisc.  127 
Santa  Brbra-Snta  Maria-Lompoc,Cal.  128 


TABLE  2  (cont.) 


Erie,  Pa. 

129 

Johns town.  Pa. 

130 

Jackson,  Miss. 

131 

Kalamazoo-Portage,  Mich. 

132 

Charlestown,  W.  Va. 

133 

Lorain-Elyria,  Ohio 

134 

Vallejo-Fairfield-Napa,  Cal 

135 

Salinas-Seaside-Monterey,  Cal. 

136 

Pensacola,  Fla. 

137 

Kingsport-Bristol,  Tenn-Va. 

138 

Colorado  Springs,  Colo. 

139 

Columbus,  Ga-Ala. 

140 

Ann  Arbor,  Mich. 

141 

Hew  London-Norwich,  Conn. 

142 

Melbourne-Titusville-Cocoa,  Fla 

143 

Lakeland  Winter  Haven,  Fla. 

144 

Macon ,  Ga 

145 

Hamilton-Middle town,  Ohio 

146 

Montgomery,  Ala. 

147 

Manchester, NH 

148 

Poughkeepsie ,  NY 

149 

Saginaw,  Mich. 

150 

Eugene-Springfield,  Ore. 

151 

Fayetteville,  NC 

152 

Lima,  Ohio 

153 

Savannah ,  Ga . 

154 

Santa  Rosa ,  Cal . 

155 

Roanoke,  Va 

1.56 

Modesto,  Cal. 

157 

Portland,  Me. 

158 

Spring  field,  Ohio 

159 

Salem,  Ore. 

160 

Wheeling ,W.Va. -Ohio 

161 

Mcallen-Pharr-Edinburg,  Tex. 

162 

Topeka ,  Kans . 

163 

Battle  Creek,  Mich. 

164 

Lubbock ,  Tex . 

165 

Muskegon-Muskegon  Hts,  Mich. 

166 

Terre  Haute ,  Ind 

167 

Atlantic  City,  NJ 

168 

Springfield,  111. 

169 

Racine,  Wise. 

170 

Galveston-Texas  City,  Tex. 

171 

Daytona  Beach,  Fla. 

172 

Springfield,  Mo. 

173 

Lincoln,  Nebraska 

174 

Steubenville-Weirton,  Ohio-W.VA. 

175 

Champaign  Urbana-Rantoul ,  Ill. 

176 

Cedar  Rapids,  Iowa 

177 
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TABLE  2  (cont,) 


Asheville,  NC  178 
Fort  Smith,  Ark-Okla.  179 
Biloxi-Gulfport,  Miss  180 
Killeen-Temple,  Tex.  181 
Green  Bay,  Wise.  182 
Pittsfield,  Mass.  183 
Parkersburg-Marietta ,W. Va. -Ohio  184 
Waco, Tex.  185 
Lake  Charles,  La  186 
Yakima,  Wash.  187 
Amarillo,  Tex.  188 
Jackson,  Mich.  189 
Brwnsvl le -Harlingen-SanBenito , Tex .  190 
Anderson,  Ohio  191 
Provo-Orem,  Utah  192 
Altoona,  Pa  193 
St.  Cloud,  Minn.  194 
Lynchburg,  Va.  195 
Waterloo-Cedar  Falls,  Iowa  196 
Alexandria,  La.  197 
Mansfield,  Ohio  198 
Muncie,  Ir.d.  199 
Petersburg-Colonialhts-Hopewll,Va  200 
Wichita  Falls,  Tex.  201 
Fayetteville-Springdale,  Ark.  202 
Anchorage,  Alaska  203 
Decatur,  Ill.  204 
Santa  Cruz,  Cal.  205 
Abilene,  Tex.  206 
Vineland-Millville-Bridgeton,NJ  207 
Reno,  Nev.  208 
Sarasota,  Fla.  209 
Fargo-Moorhead,  N. Dak. -Minn  210 
Pueblo,  Colo.  211 
Kenosha,  Wise.  212 
Florence,  Ala  213 
Bay  City,  Mich.  214 
Sioux  City,  Iowa,Nebr.  215 
Tuscaloosa,  Ala  216 
Monroe ,  La  217 
Texarkana,  Tex-Ark.  218 
Williamsport,  Pa.  219 
Boise  City,  Iowa  220 
Lafayette,  La.  221 
Lafayette-West  Lafayette,  Ind.  222 
Tallahassee,  Fla.  223 
Lawton,  Okla.  224 
Wilmington,  NC  225 
Fort  Meyers,  Fla  226 
Gainsville,  Fla.  227 
Bloomington-Normal,  Ill.  228 


-32- 


TABLE  2  (cont.) 


Elmira,  MY 
St.  Joseph,  Mo. 

Tyler,  Tex. 

Albany,  Ga. 

Burlington,  NC 
Sioux  Falls,  S.Dak. 

Gadsden ,  Ala 

Richland-Kennewick,  Wash. 
Odessa,  Tex. 
Lewiston-Auburn,  Maine 
Dubuque ,  Iowa 
Billings,  Mont 
Pine  Bluff,  Ark. 

Rochester,  Minn. 
Sherman-Denison,  Tex. 

Great  Falls,  Mont. 

Columbia,  Mo. 

Lacrosse,  Wise. 

Owensboro ,  Ky . 

Laredo,  Tex. 

San  Angelo,  Tex. 

Midland,  Tex. 

Bryan-College  Station,  Tex. 


229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 


TABLE  2  (cont.) 


NOTE  E:  QUARTERLY  EARNINGS  (Items  B11-B14) 

For  a  given  year  quarterly  earnings  equal  actual  quarterly 
earnings  unless; 

1.  The  sum  of  the  earnings  in  the  preceding  quarters  of 

that  year  equals  the  taxable  limit.  In  this  case,  earnings  in 

the  remaining  quarters  are  reported  as  zero. 

2.  The  sum  of  the  earnings  in  the  preceding  quarters, 

plus  the  earnings  in  a  given  quarter  of  that  year,  exceed  the 

» 

taxable  limit.  In  this  case,  the  earnings  in  that  quarter  equals 
the  difference  between  the  taxable  limit  and  the  sum  of  prior  quarter 
earnings. 

The  following  table  shows  the  taxable  limit  for  the  period 
spanned  by  the  data; 

Years  Taxable  Limit 

($) 

1957-58  4,200 

1959-65  4,800 

1966-67  6,600 

1968-71  7,800 

HEADER 

EMPLOYER  RECORD 

LAST  EMPLOYER  RECORD 
HEADER  (next  worker) 

FIG.  2:  SCHEMATIC  OF  ARIZONA  LEED  FORMAT 
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TECHNICAL  DESCRIPTION  OF  CWBH  TAPES 

This  is  an  EBCDIC,  nine  track,  1600  BPI  tape  with  IBM  standard 
labels.  The  logical  record  size  is  36  characters  per  record.  The 
blocksize  is  3600  characters  (i.e.,  100  records)  per  block.  The 
title  of  the  tape  is  AZUIXTRCT.  It  is  a  two-reel  single  file  tape. 
There  are  1,358,331  records  in  the  file  which  include  data  for 
44,913  people. 

Tape  reel  no.  0451  is  the  first  reel  of  the  file.  Reel  no. 
0452  is  the  second. 


CWBH  FILE  STATISTICS 


Number 

of 

records 

on 

tape : 

1,358,331 

Number 

of 

people 

on 

tape: 

44,913 

Number 

of 

claims 

in : 

1963: 

6,032 

64: 

9,632 

65: 

9,168 

66: 

6,433 

67: 

7,796 

68: 

5,955 

69: 

6,710 

70: 

5,221 

71: 

4,554 

Total 

61,501 

Number  of  claims  per  person: 

None : 

4,049 

One : 

27,724 

Two: 

8,454 

Three: 

2,759 

Four  or  more 

:  1,927 

Sex  Distribution: 

Male: 

27,514 

Female: 

12,462 

Unknown : 

4,937 

Age  Distribution: 

1-24: 

12,090 

25-44: 

15,406 

45-59: 

6,930 

60-65: 

4,649 

66-100: 

525 

unknown 

5,313 

Racial  Distribution: 

White : 

11,159 

Indian: 

1,159 

Spanish  surnamed  white: 

2,589 

Negro : 

918 

Other  non-white: 

193 

Spanish  surnamed  non-white: 

144 

INA: 

191 

Unknown : 

28,560 
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FORTRAN  PROGRAM  TO  READ  CWBH  TAPE 


THIS  FORTRAN  PROGRAM  READS  AND  THEN  PRINTS  OUT  IN  A  READABLE  FORMAT 
THE  DATA  ON  THE  CWRH  EXTRACT  TAPE.  AN  EFFORT  HAS  KEEN  MADE  TO  MAKE  THIS 
PROGRAM  AS  MACHINE  INDEPENDENT  AS  POSSIBLE.  HOWEVER.  ANYONE  USING  THE 
PROGRAM  SHOULD  BULL  READ  THROUGH  IT  FIRST  AND  MAKE  SURE  IT  IS  COM¬ 
PATIBLE  WITH  WHATEVER  MACHINE  HE  OR  SHE  WILL  BE  USING.  THE  PROGRAM 
ITSELF  CONTAINS  THREE  SUBROUTINES.  LINES  100  AND  110  ARE  FILE 
DECLARATION  CARDS  WHICH  WERE  USED  TO  TELL  OUR  MACHINEIA  BURROUGHS  6700) 
WHAT  FILES  ARE  ASSOCIATED  WITH  WHICH  UNIT  NUMBERS. 


THE  VARIABLES (SEE  LINES  120-190)1 

•NXTREC-  IS  WHERE  THE  NEXT  RECORD  TYPE  IS  STORED (SEE  THE  DOCUMENTATION 
FOR  THE  1APE.) 

'LCOUNT'  IS  A  COUNTER  WHICH  KEEPS  TRACK  OF  THE  NUMBER  OF  LINES  SENT 
OUT  TO  THE  LINE  PRINTER.  THIS  PROGRAM  DOES  ITS  OWN  PAGING.  EACH  LINE 
SENT  TO  THE  PRINTER  INCREASES  'LCOUNT*  BY  ONE.  AS  SOON  AS  'LCOUNT' 
EXCEEDS  AO.  SUBROUTINE  'NXTPG' (LINES  2870-2910)  IS  CALLED  WHICH  CAUSES 
THE  PRINTER  TO  SKIP  TO  THE  TOP  OF  A  NEW  PAGE  AND  THEN  ZEROES  OUT 
•LCOUNT'. 

'NOSSNS'  IS  THE  NUMBER  OF  SOCIAL  SECURITY  NUMBERS  THE  PROGRAM  PROCESSES. 
I.E.  IT  COUNTS  THE  NUMBER  OF  PEOPLE  THE  PROGRAM  LOOKS  AT. 

•NUMBER'  IS  THE  PARAMETER  WHICH  DETERMINES  HOW  MANY  PEOPLE  THE  FROGRAM 
WILL  LOOK  AT.  JUST  SET  'NUMBER'  EQUAL  TO  THE  NUMBER  OF  PCOPLE  YOU  WANT 
TO  SEE (LINE  190).  IF  YOU'VE  READ  THE  TAPE  DOCUMENTATION  YOU  KNOW 
•NUMBER'  CAN  RANGE  FROM  1  TO  44913(BECAUSE  THERE  ARE  44913  PEOPLE 
ON  THE  TAPE).  WHEN  THE  PROGRAM  IS  FINISHED  'NOSSNS'  AND  'NUMBER' 

SHOULD  BE  EQUAL. 

'HORECB'  IS  A  COUNTER  WHICH  KEEPS  TRACK  OF  THE  NUMBER  OF  3A  CHARACTER 
RECORDS  THE  PROGRAM  HAS  LOOKED  AT.  THERE  ARE  ON  AVERAGE  30.24  RECORDS 
PER  PER80N( 1358331  RECORDS/44913  PEOPLE). 

•KIND'  IS  WHERE  THE  CURRENTLY  BEING  EXAMINED  RECORD  TYPE  IS  STORED. 

'WAGES'  IS  THE  ONLY  REAL  VARIABLE  IN  THE  PROGRAM.  AND  IS  WHERE  THE 
'WAGES  FROM  EMPLOYER' (IN  A  '4'  RECORD)  ARE  STORED.  ('WAGES'  IS  REAL 
BECAUSE  'WAGES  FROM  EMPLOYER'  IS  IN  DOLLARS  AND  CENTS.) 

'IKLAG'  CAN  DE  EITHER  O  OR  1.  IF  A  READ  IN  SUBROUTINE  'READIN'  RESULTS 
IN  A  DATA  ERROR  'IFLAG'  IS  SET  TO  1.  OTHERWISE  ' IFLAG'  WILL  BE  0. 

WHAT  'IFLAG'  IS  USED  FOR  WILL  BE  EXPLAINED  LATER. 

1HE  OTHER  VARIABLES  ARE  ALL  USED  TO  STORE  THE  INFORMATION  ON  EACH  PERSON 
ON  THE  TAPE.  THERE  ARE  IIS  POSSIBLE  DATA  ITEMS  FOR  EACH  PERSON.  AND 
RAIHER  T Man  INVENT  111  DIFFERENT  NAMES  EACH  OF  THESE  VARIABLES  IS  A  VEC¬ 
TOR  WHOSE’  NAME  IS  OF  THE  FORM  'IN  •  WHERE  THE  3  BLANKS  REPRESENT  A  3 
DIGIT  INTEGER.  EACH  3  DIGIT  INTEGER  REFERS  TO  THE  READ  AND  FORMAT 
STATEMENI  WHICH  WRITES  INTO  THE  VARIABLE.  FOR  EXAMPLE.  'INDOO'  STORES 
THE  DAI  A  HEAD  OFF  THE  TAPE  BY  THE  READ  AT  STATEMENT  NUMBER  500  ACCORDING 
TO  THE  5000  FORMAT.  FURTHERMORE.  'IN500'  STORES  THE  DATA  CONTAINED  IN 
A  *5'  TYPE  RECORD. 


THE  MAIN  PROGRAM (LINES  120-300). 


FOR  ALL  PRACTICAL.  PURPOSES  THE  MAIN  PROGRAM  IS  JUST  A  00  LOOP  IN  WHICH 
SUBROUTINES  ‘REAPIN'  ANP  ‘WRITE*  ARE  CALLED  THE  APPROPRIATE  (I.E. 
‘NUMBER’)  NUMBER  OF  TIMES. 


SUBROUTINE  ‘REAPIN’ (LINES  310-1010). - 

THE  SUBROUTINES  OF  THIS  PROGRAM  ACTUALLY  DO  ALL  THE  WORK.  AND  THIS 
SUBROUTINE.  AS  MIGHT  BE  GUESSED.  READS  THE  TAPE.  ‘READIN*  ACTUALLY 
READS  ONLY  1  RECORD  USING  THE  PROPER  FORMAT.  AND  THEN  RETURNS. 

•REAPIN'  DETERMINES  WHAT  FORMAT  TO  USE  BY  EXAMINING  ‘NXT  REC* (SEE  THE 
COMPUTED  GO  TO  AT  LINE  370),  SINCE  THE  FIRST  RECORD  ON  THE  TAPE  IS 
A  *1‘  RECORD.  THE  MAIN  PROGRAM'S  FIRST  EXECUTABLE  STATEMENT (LINE  150) 
SETS  ‘NXTREC*  EOUAL  TO  1.  SUCCESSIVE  VALUES  FOR  *NXTREC‘  ARE  THEN 
SUPPLIED  BY  THE  LAST  CHARACTER  OF  EACH  RECORD  ON  THE  TAPE. 

IF  ANY  READ  IN  ‘REAPIN’  RESULTS  IN  A  DATA  ERROR  CONTROL  TRANSFERS  TO 
STATEMENT  NUMBER  10200(L1NE  890).  A  DATA  ERROR  MEANS  THAT  THE  RECORD 
JUST  READ  HAS  SOME  GARBAGE  IN  IT  SOMEWHERE.  I.E.  WHAT'S  ACTUALLY 
OUT  UN  THE  TAPE  IS  NOT  WHAT'S  SUPPOSED  TO  PE  THERE.  ‘READIN*  SKIPS 
THIS  RECORD.  AND  READS  THE  NEXT (LINE  970)  TRYING  ONLY  TO  PICK  UP  A 
VALUE  FOR  ‘NXTREC*.  SINCE  WE  HAVE  READ  NOTHING  IN  THERE  IS  NOTHING  TO 
WRITE  OUT.  SO  WHENEVER  THERE'S  A  DATA  ERROR  IN  ‘READIN*  WE  WOULD  LIKE 
TO  SKIP  SUBROUTINE  ‘WRITE’.  THIS  IS  DONE  BY  TESTING  ‘ 1FLAG‘  AT  LINE 
220.  NOTICE  AT  LINE  960  THAT  WHENEVER  THERE  IS  A  DATA  ERROR  ‘ IFLAG* 

IS  SET  TO  1.  THIS  WILL  CAUSE  ‘WRITE*  NOT  TO  BE  CALLED  WHEN  ‘REAPIN’ 
RETURNS.  * IFLAG1  IS  RESET  TO  0  THE  NEXT  TIME  ‘READIN'  IS  CALLED. 


SUBROUTINE  ‘WRITE1 (LINES  1020-2860), 

THIS  SUBROUTINE  PRINTS  OUT  THE  RECORD  READ  BY  ‘READIN*.  ‘WRITE* 
DETERMINES  WHAT  FORMAT  TO  USE  BY  LOOKING  AT  ‘KIND* (SEE  THE  COMPUTED- 
GO  TO  AT  LINE  1060).  (‘READIN’  ALWAYS  PROVIDES  A  VALUE  FOR  ‘KIND*). 


SUBROUTINE  *NXTPG‘ (LINES  2870-2910). 

THE  FUNCTION  OF  THIS  SUBROUTINE  HAS  ALREADY  BEEN  DESCRIBED.  *NXTPG‘ 
CAUSES  THE  PRINTER  TO  SKIP  TO  A  NEW  PAGE  AND  ZEROES  OUT  ‘LCOUNT’. 


IF  THERE  ARE  ANY  QUESTIONS.  PLEASE  CALL  JON  BECK  AT  (703)524-9400. 
EXT.  343. 


WORKFILE :  UI/AR17/REA0/VER1  (01/21/78) 


100 

FILE 

110 

FILE 

120 

130 

140 

ISO 

1  60 

170 

ISO 

190 

200 

210 

100 

220 

210 

240 

200 

250 

260 

270 

300 

230 

2  90 

300 

310 

320 

330 

340 

350 

360 

3  65 

100 

37  0 

3  75 

380 

390 

2C0 

400 

4  10 

420 

430 

440 

300 

450 

460 

470 

480 

490 

500 

510 

430 

520 

530 

540 

50  0 

550 

560 

570 

60  0 

580 

590 

600 

700 

610 

620 

630 

80  0 

640 

65  0 

660 

900 

670 

680 

1(  TITLE3"AZUIXTRCTHYCCFt«*,»K  INO3 PET  APE » FILETY» E »3 > 
6{KIN03PFINTEP  ) 

CO  MHO  N  Nl“.DE  R.KI  NC»  NX  T  FEC  .  HA  GES  »LC  OUST  .KOS  SM  S»  MORE  C  S  *  I E  L  AG. 

•IK  100(17 ). IN2CC(12>» IN  21 0(1 2  >. IN  200 (10  >.IN 31 0( 1 2 ). I M 20 ( 10  )  # 
*IN4C0»IN50C(7)»IN600(8  ).I N70 C( 7  ), I N 6 CO ( 2  ).  IV 90 0 ( 6 ) . IN 91 0 ( 8 ) 

NX  TREC3  1 

LCCWNT=0 

NO  SSN  S-0 

NQPECS30 

All  PEER3 1 5 

00  200  X  =  l, NUMBER 

CALL  REACIN 

irdfLAS.EO.OCALL  WRITE 
IF(NXTREC.NE.l  )G C  TO  IOC 
CONTINUE 

IF(LCCUM.GT.5  7)CALL  N XTPG  (LCCL'N  Tl 
NRITE(6»  200)N0SSNS.KCRECS 
F0RPAT('0THE  ENC.  EVERYTHING  KENT  CK.'/ 

*'  '»I6» '  PEOPLE  AKO  '» 1 7.  '  RECCRCS  HAVE  BEEN  PROCESSED.') 

STOP 

EKO 

SUBROUTINE  RE  ADI N 

COMMON  N  UMSE  R.  !5  IN  C.KXT  FEC  .WAGES  .LCCLM.KOS  SN  S.  NOPE C  5 . IFL A S. 

•  IN  100(1  7  ).IN2C0(1  3)  .IN210(  12).  I  MOO  (1C  >.IN  *1  0(  1  2).  I M 20(10). 
*IN400»IN500(7}»IN600(8  ).IN7C0(7>»:n8C0(2>»I«S30(8>>IN910(8) 

I F  LAG3  0 

GO  TC(1C0.200»300»40C.5C0.6CC.70C.8CC.SOO> .V  XTREC 
KCSSKS3  NCSSNS* 1 

READ(1.1090»END310000» CATA3102  00  )K I  NO.  (IN10) (I  >»I3  1.17J.NXTREC 

KOFECS=KCRECS»l 

GO  TO  999 

REAC(1.2C30»GATA3102C0  )K!NC.(IK2C0(I  )  *  I •  1*  13) 

NOREC  S3  N  CREC  S* 1 

RE AC ( 1.2  100. CATA»  10200  1  ( IN2  10 (  I  > »1 3  1 »  12  ).N  XTREC 

K0FECS3WCRECS*1 

GO  TO  999 

REAC( I .3000  .DATA3 10  200  IK  IN C . (I K300 ( I  >.I31. 10  ) 

N09ECS3N0RECS*1 

RE  A  0 (  1*1  IOC  .DATA=102C0  )  ( IN  3  10 (  I  ). 1 3  1 .  12) 

KORECS3  K  CREC  S» 1 

REAC(1. 3  290. DATA* 102  CO  )(IN12C( I  )»I*1. 10  ).N XTREC 
KOPECS3K£R£CS«  1 
GO  TO  999 

REAC(  1  .4000 .D AT A* 10200  IK  INC .  IN  400. fc AGE S .NX TR EC 

KOPECS=WCRECSM 

GO  TO  999 

REAC(l>5COO.CATA3lQ20C)MNC.  (I  K500  (  I  )  .  I3  1*  7)  »NX  TPEC 
NOR£CS3>'.  CRECS*  1 
GO  TO  999 

PEAO(  t.6C00.  DATA3  10200  )l<  I  NC,  ( I  NfcOO  (  I).  I  31 . 8)  ,N  X  TPEC 

KOR£CS3NCRECSM 

GO  TO  999 

PE  A  0(  1.7000  .CAT  A*  10200  1KINC  »  (I  K700  ( I  ).  1 3  1. 7)  .N  XTRE  C 

KCRcCS=NCPECS*l 

GO  TO  999 

REACH.  8C00.0ATA-1020C  )KI  NO  •  (I  NEOO  (  1  )  .  I3  I.  2).  NX  TREC 
norecs-ncrec  S*  1 
GC  TC  999 

RE A 0(1. 9 COO. DAT A- 10200  ) KI NO . (I N900  ( I ). 1 3 1.  8) 

N0R£CS3KCR£CSM 

REAO(1.9100.DATA310200)(IN910(1).I -1.8  ). NX  TV  EC 
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690 

700 

99  9 

710 

1000 

720 

2000 

730 

2100 

740 

3000 

750 

3100 

760 

3203 

770 

400.0 

xeo 

5000 

790 

6CC0 

800 

7C00 

310 

ecoo 

8  20 

9C00 

3  30 

9100 

840 

10000 

850 

•60 

10100 

87Q 

880 

890 

10200 

900 

910 

920 

1  C  300 

930 

940 

950 

960 

970 

980 

10400 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1 G  60 
1093 

100 

1100 

11  10 
1120 
1130 

200 

1140 

1150 

1160 

1170 

11  89 
1190 
1200 

121  0 
1220 
1250 
1240 
1250 

300 

1260 

1270 

1280 

40  0 

1290 

1300 

1310 

1  J20 

500 

KCFECS*NCREC$*1 

return 

FCRMAT(tl,A6,A3,2It,I5,lC!l,!5,ll,4X,Il) 

F0RWAT(I1.!2,I1.I1»I2,4(!5,A2),U) 

FOFMAT(Il»I2,r2»A5»A4»I2,A2»Il»Il»I2»A2»Il»lOX»Il) 

FCFMATCl.  15, I5»I5»I3,A4,A6.Al,A4,  11,11) 

FCPMAT(A4»!5,!5*I4»I2»  14,  1 4 , 14  ,  II,  !  1 , 1  1 , 1 1  ) 
FCRMAT(A1,I5,I5.IE,612»EX,  11  ) 

FOPM AT{ I  1«A5*F7.2»22X»  1 1  ) 
rCFRAT(Il,!5,I5,I2,A3,Al,Al,A2,15X,Il) 

FOPMATCI 1,315, 11,11, Ai,Al,A2,l!X, II  ) 
FC?MAT(I1.S13,A5.A4.A1.A2.7X.II) 

FOFMAKI  1,I5,A2,27X,I1  ) 

F  0  RMA  T(  I  1.615,44,11  ) 

FCRMAT(A6,A1»I5»I4,A5,3A4»2X»I1) 

IF(LCOUNT.GT .57)C4UL  NXTPG(LCOUNT) 

WRITE(6»  10  100)N0SSNS»NCFECS 

F  C  PM  A  T ( " CENC  OF  INPUT  TAPE  FILE  CAUSES  TERMINATION  CF  PROGRAM"/ 
•'  AFTER  PROCESSING  ",I6,"  PEOPLE  ANC  ",I7,"  RECORDS.") 

STOP 

NCR£CS=NCR£CS*1 

IF  CL  COUNT  .GT  .56  )C  ALL  N  X  TP  G  (L  CO  LN  T> 

NR  I TE( fc»  1030CJN0RECS 

FORMAT! 'CFCR  VAT  ERRCR  AT  FECORC  Nil M 9 E R  ',17/ 

*"  THIS  RECORD  IS  SKIRPEC  OVER,  THE  NEXT  IS  READ  ONLY  TO  PICK  U?' 
*'  A  VALUE  FOR  NXTFEC,  AND  THEN  SU3RCUT  JNE  RE  AO  RETURNS.") 
LCCLNT=LCCUNT*4 
IFLAG=  1 

READ! 1, 1 C400,END=10003  1KXTREC 
FCRMAT(35X,!1> 

N0RECS=NCPECS*1 

FETUR.N 

END 

SU9RCUT  IKE  WRITE 

COMMON  SUM3ER,K INC, NXTFEC, V ACE S,LCC IN T.NOS  SNS, MORE CS.IFLAG, 
*IN10C(17  ),XN203(1 J) ,IN210(12>, IN  IOC (1C), IN  31  0(12),  IK320UC), 
•IN4D0,IN5)0(7)  ,IN600(3  ),IN7CO(7),IN8  0O(2  ),  IN93  5  (£)  ,I.\910(8) 

GC  TC(lC0,2O0, 3C0, 400, 5C0,6OC, 700, 800,900), KINO 
WPITE(6 , 1000  )KIN0,( IN1C0( I  ),  I*  1,17  J.NXTREC 
LC0LNT*2C 
GO  TO  999 

IF (L COUNT. GT.45  >C ALL  N X  TP G (L CO  L N T ) 

WR ITE(6,2C00 )K INC,( IN20C(  I  )»  1= 1,13  ) 

LC CUNT =L  COUNT ♦  15 

IF (LCGUNT.GT.461CALL  NXTPG(LCOLNT) 

WRITE (6, 2100 )(I N2 10(1 ) ,1= 1,12), NXT  REC 

LCCLNT-LCCUNT*14 

CO  TO  994 

IF  (L  COUNT  .GT  .49JCALL  NX  TP  G(L  COUNT) 

W= ITE(6, 3  000  )K INC,( IN3CC( I  ),  1= 1,  10  ) 

LCCLNT=L COUNT* 11 

IF (LCCUN  T.GT.4  71CALL  NXTPG (LCOLN  T) 

WRITEIG, 3100  HI N 310(1 ) ,1=1,12) 

LC0LNT=LC0UNT*13 

IF (LCOUNT.GT . 480C  ALL  NXTPG(LCCUNT) 

WR I TE(6 ,3200  )( IN520( I >  ,  I* 1 ,  1C)»NXTR£C 
LCOLN T*LC0UNT*!2 
GO  TC  999 

IF(LC0UNT.GT.55)CALL  NXTPG (LCOLN T) 

WRITE (6,  400  0  )KIND,IN40  0,WAGES, NXTREC 
LCOUNT*L  CCUNT ♦  5 
GG  TO  999 

IF  (L  CCUNT  .GT  .50)CALL  NXTPG(L  COUNT) 

WR  I  If  (4.5C00A*  lAC.dASCC  (I  )«  I*  1 .7).  NXTREC 


-40- 


xuis  Pioi  is  bast  quality  j 

FROM  OOrY  JFltfJUSHSD  TO  DOO 


LCOUNT-LCOUNTMO 
CO  tc  99  9 

IFCLCOL'NT.GT.ASJCALL  N X  TP G CLCOUNT ) 

WR  I  !£  <0.0000  >K  INO.C  IK6CCU  )*  I*  l.JJ.RXTREC 

LC0LNT*LC0UNT«11 

CO  10  999 

IFCLCCUNT.GT.50  )CALL  N X TPG (LCC LNT) 

tiR  I  TEC  6.7300  >K I ND .( I N7 C0( I  ). I* l. 7), NXTREC 

LCGUNT=LCCUNT*10 

GO  TO  999 

IF  <L COUNT. GT. 55  >CALL  N X  IPG (L CO  UK T) 
fcRITE(6»E000)KINC»(INfiCC(I)»I*l»2)»KXTFEC 
LC0LNT*LCCUNT«5 
CC  TC  999 

IFCLC0UNT.GT.5OCALL  NX TPG CLCOUNT) 
WR1TE(6,$000)KIKC>(1N9CC(I),1=1,C) 
LCOUNT=LC0UNT*10 

IF  CLCOUNT  .GT  .5  DC  ALL  N  X  TPC  (L CO  UN  T) 

WR I  TEC  6. 9130 >C I N9 10  Cl). I* 1,6  ). NXTREC 

LC CUNT =L  COUNT ♦ 9 

RETURN 

FORMATC'l"/ 

''O'.UO.'RECCSO  T  YPE*  '  »  1 1/ 

■"  "»TZC» 'SCRAKSLEC  SSN=',A6,A37 
'  "  »  T2C .'SEX  ='.11/ 

-"  '.T2C."RACE='.I17 
'  '.T23.'BIRTHCATE=".I5/ 


CL  A  IP  INDICATOR*". I 1/ 


".T20»'1963  WAGE  ANO  CLAIR  I NC IC A TOR* '.I  1/ 
"»T2&»"1964  WAGE  ANO  CLAIM  I  ND  TC  A  T  CR  *' .1  17 
",T20."1965  WAGE  ANC  CLAIM  I NC  IC A  ICR* "»I 1/ 


", T  20. "1 96  6  WAGE  ANO  CLAIR  I NC  IC A  TOR  * '.I  1/ 
".T20»"1967  WAGE  ANC  CLAIR  INCIC A  TOR*' .1  1/ 

", T  20. '1966  WAGE  ANO  CLAIR  I  NO  IC ATCR*"»I 27 
"»T2C ."196  9  WAGE  ANC  CLAIR  I NC  IC  A  ICS*"  .1  17 
",T20."1970  WAGE  ANO  CLAIR  I  NO IC A  TOR* *.I  17 
*  »T23  »  *  197 l  WAGE  ANC  CLAIR  I  NO  IC A  TOR*" »I  1/ 

" »T20  » 'NO .  OF  INELIGIELE  CLAIR  R£  COR  C  £=' »I  17 
"»T2G.'NC.  OF  I NFCRMAT  ION  UNITS  FOR  THIS  SSN*',I37 
".TZO.'NO.  CF  WAGE  R E C CRCS*'»  1 1/ 

".120. 'NEXT  RECORD  TYPE*". II) 

0RRATC'C'»T20. 'RECORD  TYPE*"»I1/ 

", T3  0. "YEAR* 19". I  27 
" ,T30 ." NO  •  CF  INOUSTR  IES="  .1 17 
" ,T3C. 'NO.  OF  ERPL0YEFS*'»I1 7 
"»T3  0.'N0.  OF  WAGE  ITEMS*'. 12/ 

" »T30» '01  WAG£  5*" »  15  7 
'.TIO.'Ol  SIC  *" » A2 7 
"»T30.'02  WAGES*". 157 
"»T30.'02  SIC  =",A27 
"»T30.'C1  WAGES*". 157 
',T30."S3  SIC  = ' , A2  7 
"»T30.'C4  WAGES*'. 157 
".TI0.'C4  SIC  * " »  A2  7 
'.TiO.'NEXT  RECORD  TYFE*".U) 

OPRAI("O'.T30.'OTRS  WORKED  FOR  PE*". 11/ 

",T30,'PE  WAGE  AS  PCI.  OF  TOTAL*". 12/ 

".TJO.'PCT.  CF  WIC  WAGE  FR CM  PE*'.I2/ 

"»T30,'PE  10  =' AS/ 

".TIO.'PE  SIC*".A4/ 

"»T30,"SE  WAGE  AS  PCT.  OF  TOTAL*'. 12/ 

".TiO.'SE  SI C=" ,A2/ 

'.T30,"0TRS  WCRKEO  FCR  SE*".I17 
"»T30."I£FLAG*".I1/ 

".TIO.'PCT  OF  WAGES-*. 127 
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'  " »T30 , 'S I C  =  ' »  A2  / 

*  '.T30.'QTR$  WCR!>ED  =  '#U/ 

'  "»T30» 'NEXT  RECCRD  TYFE="»I1) 

FO  RM  AH' C'.T  20, 'RECORD  TYPE*'.  11/ 

'  ',T30»'LA3r  OAY  WCRKEC='»I5/ 

'  ",T30.'DATE  OF  CLAIM*'. 15/ 

*  ",T30»"EFFECTIVE  CATE='»I5/ 

'  ".T33.'LAST  QOAFTEF  CF  EASE  PERIGC=".I3/ 

'  " »T30» "LOCAL  CFFI CE= "  »  A4  / 

"  '.TSO.'CCCUPATICN  A?EA='A6»A1/ 

'  *.T30»"LAST  INCLSTRt  SIC='»A4/ 

'  '»T30» 'REASON  FCR  SE F AF AT  I  ON*' . 1 1/ 

'  " »T  33  » "NE  X  T  PECCRO  TYFE=',I1) 

FORMATI'O'.T 30. 'SIC  OF  HI  WAGE  EMPLOYER*"* AW 
'  '*T30*'BASE  PERIOD  RACES*", 15/ 

'  "»T30»"HIQ  WAGE* "* 1 5/ 

'  '*T30»"M3A=' .14/ 

"  ',T3C,"W3A  =  '»  12/ 

■"  "»T30»"M3A  BALANCE*' *14/ 

'  '.T30.'0EDUCTICNS='. 14/ 

'  '.T33  .'A “CUNT  RESTCREC='»I4/ 

'  ",T30. 'TRANS  ITI CN  C0CE='.I1/ 

'  "*T30. 'LOCAL  PRCGPAM  C3C£  =  '.I1/ 

'  " «T30  » "FRO  GRAM  CODE*". 11/ 

'  " *T$0  » 'NEX  T  3ECCPC  TYFE  =  "»I1J 
FCRMAT("C'»T30"PCT£NTI A  l  CCUELE  CIPPER='»A1/ 

'  ',T30,*A7-UI  WAGES*'. 15/ 

"  "»T3C.'CS“UI  WAGES*'. 15/ 

'  "» T  3  C» 'NO.  OF  CHARACTERS  IN  ALL  TRANSACTION  RECORDS*"* 16/ 
'  '.T30.'NC.  CF  TFANSACIICN  FE CCF3 S*' ,  I  2/ 

'  "*T3C»'N0.  CF  EMPLOYER  RECCR CS=' .  12/ 

'  '.T3C*'N0.  OF  PAYMENT  TR AN S A CT ICN S = ' . I 2/ 

"  "»T30»"N0.  OF  CECISICN  T S A  NS  A C TI CN £=' , 1 2/ 

'  '.TJO.'NO,  OF  REINSTATEMENT  T R AN S AC T I C NS =' . I  2/ 

'  " »TJ  3  .'Nu  .  CF  ADDITIONAL  CLAIM  T R AN S AC TI CN S= ' » 12 / 

'  "»T30»"NEXT  RECCRD  TYPE*', ID 
F0PMATC'C'.T3T»"RECCSC  TYPE* "*11/ 

'  '»T4C» 'EMPLOYER  ID*'.A5/ 

'  '»T40»" WAGES  FRCK  EM P L C YER*' »F E. 2/ 

"  *»T4C. 'NEXT  RECCRD  TYFE*'*I1) 

FORMATC'0',T3T.'RECORC  1YPE='»II/ 

'  '.HC.'KEEK  ENCINC  CATE*', 15/ 

"  "  »T  AO .'DATE  PA  I  C  =  '»  15/ 

'  '.T40. 'AMOUNT  PAT0*'.I2/ 

'  '.T40. 'EA3NI  SGS  FOR  WEEK*'. AS/ 

'  ".TAC.'OISCJALIFI CATICN  CCCE='»A1/ 

'  ",T4C. 'SPECI AL  FANOLING  CCCE='»A1/ 

'  '.T4C, "LOCAL  OFFICE  *".A2/ 

'  "»T4C»  'NEXT  RECCRC  TYPE  s'. ID 

FORMATC'O'.TiJ ."RECCRC  TYPE*'.  11/ 

'  '.UO.'STAFT  DATE  CF  t  I S  CU  AL  I F IC  A  T  1 0  N= '.  IS  / 

'  '.TAO.'ENC  DATE  CF  C  I  S CU AL  IF  I C AT  I  ON * '  ,  15 / 

'  ".TAC.'CATE  CF  t£CISICN*'»I5/ 

'  '.TAO.'TYPC  CF  DECISION*'. 11/ 

'  '.T40. "LEVEL  CF  DECISION*'*!!/ 

'  "*T4C. 'ISSUE  C0CE='»A1/ 

'  '.TAO.'TYPE  CF  APPEAL*'*  Al/ 

'  '.TAC.'LOCAL  OFFICE  CC0E*'*A2/ 

'  ",T4C.'iNEXT  RECCRC  TYFE*'*I1) 

FCPNAT('C'.T33,'PECCrC  TYPE*'.!!/ 

'  ".UO. 'EFFECTIVE  CATE*". 15/ 

"  '.UO.'LAST  CAY  WCPK EC* * » I  5/ 

'  ",T40»'DATE  CF  CLAIM  *',15/ 

"  "*T*0»'l  AST  EMPLOYER  Ifia'.AS/ 


fPU  *181  LS  BEST  QUALITY  HlAOntMfW! 

I7MI  ha*>.c- v-'  t.  ,W)C 


2610 

•'  '.T40. 

2620 

•*  ',T40» 

2630 

•  '  •*  T40, 

2640 

»'  •  ,T40 » 

2650 

8000 

FORMAT!' 

2660 

•  '  * »T40 . 

2670 

«•  '.  T4  0. 

2660 

•-  '.T4C. 

2690 

9000 

FORMAT (' 

2700 

•-  *»TJO  » 

2710 

*•  ' »T  30  » 

2720 

•'  '.TJO. 

2730 

* - .T30. 

2740 

*'  '.T30, 

2750 

*•  '  .T30 . 

2760 

•  •  '»  T  JC» 

2770 

*•  '.TJO. 

2760 

9100 

FORMATE 

2790 

*'  *»T30. 

2600 

*'  '.TJO. 

2610 

*'  "»T30» 

2820 

*'  '.TJO. 

2330 

•  '  ', T  JC» 

2640 

*'  '.TJO. 

2850 

•'  '.TJO. 

2860 

ENO 

2870 

SUBRCUTI 

289  0 

LRITEC6. 

2e90 

100 

FORMATE' 

2900 

J*0 

2919 

END 

•LAST  EMPLOYER  «IC**.A4/ 

'REASON  FCR  SE P IR AT  I CN« *»A 1 / 
‘LOCAL  OFFICE*'. A2/ 

•NEXT  RECCRD  TYPE*'. II  ) 

0" »T  30  »'R EC OR9  TYPE*'»I1/ 
‘EFFECTIVE  CATE**»I5/ 

'LOCAL  OFFICE*  *»  A2  / 

“NEXT  RECERC  TYFE*'.I1J 
C*.720.'RECCSC  TYPE*'. 11/ 
'EFFECTIVE  CAIE**.I5/ 

•RASE  YEAR  ENCIFG  DATE*'. IS/ 

•LAST  OAT  N  ORKE  C* ' .  15/ 

•TOTAL  LACES*'. 15/ 

*ril  0  MAGES  **.15/ 

"ARIZONA  Cl  LACES*". 15/ 

'LOCAL  CFFICE  *'.A4/ 

•NEXT  RECCRO  TYFE*'.I1  ) 
"O'.TJC.'CCCUPAHCN  CCC£*'./6. Al/ 
•ARIZONA  HC  LACES*'. 15/ 

•CTHER  STATE  UI  WAGES*'. I*/ 

'LAST  EMPLOYER  ID*'. AS/ 

'LAST  EMPLOYER  «IC='.A4/ 

•PRIMARY  EMPLOYER  SIC*'»A4/ 
•PRIMARY  INCCSISY  SIC*'. A*/ 

'NEXT  RECCRO  TYFE*'.IX  ) 

NE  NXTPG(J) 

100) 

r> 


LISTING  OF  THE  FIRST  SIX  OBSERVATIONS 
OF  THE  CWBH  FILE 


The  following  is  a  listing  of  the  first  six  observations 
of  the  CWBH  file.  This  output  was  generated  using  the  FORTRAN 
program  listed  in  the  preceding  section.  The  output  has  been 
altered  to  form  the  columns  and  the  words  "record  type"  have  been 
shortened  to  "type"  in  some  cases  in  order  to  conserve  space. 


OBSERVATION  #1 


Hft*I 

SCRAMBLED  S5  N- 06  020 1 03 l 

SEX-2 

RACE* 7 

BIRIHDATE-1621 1 

1963  RAGE  ANO  CLAIM  INDICATOR-O 

1966  RASE  ANO  CLAIM  INDICATOR-? 

1965  RAGE  ANO  CLAIM  ING1CAI0R-0 

1966  RAGE  ANO  CLAIM  INOICATOR-O 

1967  RAGE  AMO  CLAIM  INDICATOR- 1 

1966  RAGE  ANO  CLAIM  INCICATCR-1 

1969  RAGE  ANO  CLAIM  INDICAIOR-O 

1970  RAGE  ANO  CLAIM  INOICATOR-O 

1911  RAGE  ANO  CLAIM  INOICATOR-O 

N0<  OF  INELIGIBLE  CLAIM  RECOROS-O 

NO.  Of  I  AfORNATIOJ*  UNITS  FDR  THIS  SSN* 
NO*  Or  RAGE  RECORDS*? 

NEXT  RECORD  TYPE-2 

RECORD  TYPE-2 

TEAR-1967 

NO.  OF  INDUS  FRIES-2 
NO.  OF  EMPC07ERS-2 
NO.  OF  RAGE  ITEMS-  6 
01  RAGES*  655 
01  SIC  >70 
02  RAGES-  819 
02  SIC  -70 
03  RAGES-  0 
03  SIC  -  0 
06  RAGES-  769 
06  SIC  -70 
NEXT  RECORD  TTPE-0 

OTRS  W ORA EO  FOR  PE-3 
PE  RAGE  AS  PCI.  OF  TOTAL-98 
PCT .  OF  HIO  RAGE  FROM  -E-99 
PE  10-25960 
PE  SIC-7010 

SE  RAGE  AS  PCT.  OF  TOTAL-  1 
SE  SIC-7? 

OTRS  WORKED  FOR  SE-1 
IEFLAG-1 
PCT  OF  RAGES*  0 
SIC-  0 

OTRS  RORKEO-O 
NEXT  RECORD  TTPE-2 


DTPE-2 

TEAR-1966 

NO.  OF  1NDUSJR  IE  S*  2 
NO.  OF  EMPLOTERS-3 
NO.  OF  RAGE  ITEMS-  5 
01  NAGES-  906 
01  SIC  -70 
02  RAGES-  1220 
02  SIC  -70 
03  RAGES-  702 
03  SIC  *58 
06  NAGES*  803 
06  SIC  -70 
NEXT  RECORO  6TPC-0 

OTRS  RORKEO  rcR  PE-2 
12  PE  RAGE  AS  PCT.  OF  TOTAL-65 
PCT.  OF  HIO  RAGE  FROM  PE.-59 
PE  10-25980 
PE  SIC-7010 

SE  MAGE  AS  PCT.  OF  TOTAL-32 
SE  SIC-58 

OTRS  RORKEO  FOR  SE-2 
IEFtAG-1 
PCT  OF  WAGES-22 
SIC- 70 

OTRS  RORKEO- 1 
NEXT  RECORO  ITPE-3 

TTPE-3 

LAST  DAT  RORKEO-  9126 

OATE  OF  CL‘A  I  M*  28  721 

EFFECTIVE  0AT£*66278 

LAST  QUARTER  OF  BA6E  PET  100-662 

LOCAL  CFFICE-99 

OCCUPATION  AREA-  16232 

LAST  INOUSTRT  SIC-0000 

REASON  FOR  SEPARATION-1 

NEXT  RECORO  TTPE-0 

sic  or  HI  RAGE  EMPLOYER- 
BASE  PERIOD  WAGES-  1682 
HIO  MAGE-  917 
M8A*  561 
MS  A*  37 

MBA  BALANCE-  526 
DEDUCTIONS-  0 
AMOUNT  RESTORED-  0 
TRANSITION  CGCE-0 
LOCAL  PROGRAM  CODE-1 
PROGRAM  COOE-l 
NEXT  RECORD  1TPE-0 


potential  008ELE  OIPPCft* 

A2-UI  WAGES*  1377 
OS-JI  WAGES*  10 A 

MO.  OF  CHARACTERS  IN  ALL  TRANSACTION  RECORDS* 

NO.  07  TRANSACTION  RECORDS*  0 

NO.  Or  EMPLOYER  RECORDS*  2 

NO.  Or  PAYMENT  TRANSACTIONS*  6 

NO.  OP  OECISICN  TRANSACTIONS*  0 

NO.  Or  REINSTATEMENT  TRANSACTIONS*  9 

NO.  Or  AOO  IT IGNAL  CLAIM  TR AN SACT  I1NS*  0 

NEXT  RECORD  TYPE** 

RECORD  TYPE'S 

EMPLOYER  10*0*023 

WAGES  PROM  EMPLOYER*  1977*30 

NEXT  RECORD  TYPE** 

RECORD  TYPE** 

EMPLOYER  10*999*6 

WAGES  7R0M  EMPLOYER*  1J**-»S 

NEXT  RECORD  TYPE*5 

RECORD  TYPE'S 

WEEK  ENOING  0ATE*6*309 
DATE  PAID*6*310 
AMOUNT  PAID'37: 

EARNINGS  -TOR  WEEK*  000 
DI SCUAL IPI C ATI  ON  CODE* 

SPECIAL  HANOLING  CODE* 

LOCAL  OrriCE  *  M3 

NEXT  RECORD  TYPE  *9 

RECORD  TYPE'S 

WEAK  ENDING  DATE*6*2S« 

DATE  PAI 0*6*31* 

AMOUNT  PAID*  0 
EARNINGS  TOR  rfEEK'OOO 
DISCUALiriCATION  CODE* 

SPECIAL  HANOLING  COOE* 

LOCAL  OrriCE  *  MS 

NEXT  RECORO  TYPE  .  *9 

RECORD  TYPE'S 

WEEK  ENOING  D«TE*6*291 
OAYE  PAI  D*  6*  31  * 

AMOUNT  PAI 0*37 
EARNINGS  rOR  WEEX'OOO 
DISOUALIFI  CATI'ON  COOE* 

SPECIAL  HANOLING  CODE* 

LOCAL  OrriCE  -Mi 

NEXT  RECORD  TYPE  *9 


TYPE*  9 

WEEK  ENOING  DlTE*6*312 
DATE  PAI 0*6*  11 7 
ESS  AMOUNT  PAI0=37 

EARNINGS  rOR  UEEK=003 
OISCUALIFICATI'OH  COCE* 
SPECIAL  HANDLI'NG  COOE* 
LOCAL  OrriCE  *K> 

•  NEXT  RECORD  TYPE  *$ 

TYPE'S 

WEEK  ENDING  0ATE=6*29? 
OAYE  PAI  0*6*3}  3 
AMOUNT  P  A 1 0*  37 
EARNINGS  TOR  WEE?T*000 
DI  SOUAL  iriCATI'ON  COOE* 
SPECIAL  HANOLfNG  CODE* 
LOCAL  OrriCE  *  *5 

NEXT  RECORD  TYPE  *5 

TYPE'S 

WEEK  ENDING  DATE=6*31> 
DATE  PAI  0=6*32  4 
AMOUNT  PAI  0*37 
EARNINGS  F OR  WEEK'OOD 
DISCUALiriCATTON  COOE* 
SPECIAL  HANOLPNG  CCDE* 
LOCAL  OrriCE  ««> 

NEXT  RECORD  TYPE  *  > 
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OBSERVATION  #2 


“TYPE*  I 

SCRAMBLED  S5N=  03550107 3 

SEX=1 

RACES 

81 RTHD AT  E  =  1301 

1961  MAGE  AND  CLAlH  INDICATORS 

1964  WAGE  ANO  CLAIM  INDICATORS 

1965  WAGE  ANO  CLAIM  INDICATORS 

1966  WAGE  ANO  CLAIM  INDICATORS 

1967  WAGE  ANO  CLAIM  INDICATORS 

I960  WAGE  AND  CLAIM  INDICATORS 

1969  WAGE  ANO  CLAIM  INDICATORS 

1970  WAGE  AND  CLAIM  INDICATORS 

1971  WAGE  ANO  CLAIH  INDICATORS 

NO.  OF  INELIGIBLE  CLAIM  RECCRDSS 

NO  *  OF  INFORMATION  UNITS  FOR  THIS  SS* 

NO.  OF  WAGE  RECORDS  =0 

NEXT  RECORO  TYPES 

RECORD  TYPE*! 

LAST  OAT  WORKED*  4305 
DATE  OF  CLAIPS5214 
EFFECTIVE  0ATE=65206 
LAST  OUARTER  OF  BASE  PET 
LOCAL  OFF  ICES9 
OCCUPATION  AREA* 

LAST  INDUSTRY  SIC=75 1 
REASON  TOR  S  EP  AR  AT ION*  0 
NEXT  RECORO  TYPES 


•TYPES  - 

'  EMPLOYER  10*21807 

WAGES  FRCM  EMPLOYER*  1814.09 
NEXT  RECORO  TYPE=5 

TTPC«5 

WEEK  ENDING  C4TE*65212 
DATE  PAI 0=65215 
AMOUNT  PAI 0=  0 
EARNINGS  FOR  WEEK* 

01 SOUAL IFICATrON  CODE* 

SPECIAL  HANDLING  CCDE* 

LOCAL  OFFICE  »7l 

NEXT  RECORO  TYPE  -6 

TYPE*  6 

5  START  DATE  OF  01 S9UALI  FIX  A T IOV *  65 1 
END  OATE  OF  01  SOUAL  IFTCA  TI'0.':*65t49 
DATE  OF  DECISI,0N*&5232 
type  of  OECisrow*i 
LETEL  OF  DECISION* 1 
ISSUE  C00E*A 
TTPE  OF  APPEAL* 

LOCAL  CFFICE  C0CE=21 
1  NEXT  RECORO  TYPE*! 


SIC  OF  PI  WAGE  EMPLOYER*- 
8ASE i  PERI  00  WAGES*  3814 
HIQ  WAGE*  1956 
MBA* 1118 
N3A*43 

MBA  8ALANCE*  946 
-  DEDUCTIONS*  172 

AMOJNT  RESTORED*  0 
TRANSITION  COCES 
LOCAL  PROGRAM  C0DE=1 
PROGRAM  C  ODE  *  1 
NEXT  RECORD  TYPES 


POTENTIAL  DOueiE  OIPPER*- 
A7-UI  WAGES*  3834 
OS-UI  WAGES*  0 

NO.  OF  CHARACTERS  IN  ALL  TRANSACTION  RECORDS*  108 

NO.  OF  TRANSACTION  RECORDS*  3 

NO.  OF  EMPLOYER  PECOPCS*-  1 

NO.  OF  PAYMENT  TRANSACTIONS*  I 

NO.  OF  DECISION  TRANSACTIONS*  I 

NO.  OF  REINSTATEMENT  TRANSACTIONS*  8 

NO.  OF  AOOITICNAL  CLAIM  TRANSACTIONS*  0 

NEXT  RECORO  TYPE=4 
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OBSERVATION  #3 


TTPE=1 

SCRAMBLE  0  SSNS1 0  301 09  0 

SEX=2 

RACES 

B1RTHDATE=19059 

1963  WAGE  AND  CLAIM  INDICATOR-2 

1964  WAGE  AND  CLAIM  INDICATORS 

1965  HAGE  AND  CLAIM  INDICATORS 

1966  MAGE  AND  CLAIM  INDICATORS 

1967  WAGE  AND  CLAIM  INDICATORS 
1966  WAGE  AND  CLAIM  INDICATORS 
1969  HAGE  ANO  CLAIM  INDICATORS 
1975  WAGE  AND  CLAIM  INDICATORS 
1971  HAGE  AND  CLAIM  INDICATORS 
HO.  OF  INELIGIBLE  CLAIM  RECOROSS 

NO*  OF  INFORMATION  UNITS  FOR  THIS  S$N« 
NO.  OF  HAGE  RECOROSS 
NEXT  RECORD  TYPES 

RECORD  TYPES 

YE  AR  =  1967 

NO.  OF  INDUSTRIES* 1 
NO.  OF  EMPLOYERS* 1 
NO.  OF  HAGE  ITEMS*  4 
01  MAGES*  670 
01  SIC  *70 
02  MAGES*  704 
02  SIC  *70 
03  WAGES*  676 
OJ  SIC  *70 
04  WAGES*  742 
04  SIC  *70 

"  NEXT  RECORD  TYPES 

!  i  :  OTRS  WORKED  FOR  PE*4 
"  PE  MAGE  AS  PCT.  OF  TOTAL*  0 
PCT.  OF  MIQ  HAGE  FROM  PC*99 
.  .  PE  10*26171 

: : .  pe  sic* 7010  -  • 

.  -  SE  HAGE  AS  PCT.  OF  TOTAL*  0 
SE  SIC*  0 

OTRS  WORKED  FOR  S£*0 
IEFL AG*  1 

'  •  '  PCT  OF  MAGES*  0 
-  SIC*  0 
-  •  OTRS  HORKEOS 

NEXT  RECORD  TYPE*2 


■  ■ '  .  -  ' 


f TPE*2 
■  YEAR* 1968 

NO.  OF  INDUSTRIES*  1 

. NO.  OF  EMPLOYERS*! 

NO.  OF  HAGE  ITEMS*  3 
01  WAGES*  621 
01  SIC  *70 
•2  MAGES*  5  98 
02  SIC  *70 
03  MAGES*  413 
03  SIC  *70 
04  MAGES*  0 
04  SIC  *24 
NEXT  RECORD  TYPES 

OTRS  WORKED  FOR  PE*3 
PE  HAGE  AS  PCT.-  OF  TOTAL*  0 
PCT.  OF  H 10  WAGE  FROM  P£.*99 
PE  10*26171 
PE  S IC*70 10 

SE  MAGE  AS  PCT.  OF  TOTAL*  0 
SE  SIC*  9 

OTRS  WORKED  FOR  5E*0 
IEFL AG*1 
PCT  OF  WAGES*  0 
SIC-  0 

OTRS  WORK £0*0 
NEXT  RECORD  TYPE*3 

TYPE- 3 

LAST  DAY  WOR KED=6 303 9 
DATE  OF  CLAIM*  1003 
•  EFFECTIVE  DATE*63272 
LAST  OUARTER  OF  BA 6E  PETICD-731 
LOCAL  OFF ICE*45 
OCCUPATION  A  REA*200005 
LAST  INCUSTRY  SIC*5S00 
REASON  FOR  SEPARATIONS 
NEXT  RECORD  TYPES 

SIC  OF  HI  WAGE  EHPLOYERSOOO 
BASE  PERIOD  WAGES*  2732 
HI 0  MAGE*  1007 
NBA*  911 
N8A*4 1 

JIB  A  BALANCE*  1066 
DEDUCTIONS*  0 
AMOUNT  RESTORED*  0 
TRANSITION  C OCE* 0 
LOCAL  PROGRAM  COOES 
PROGRAM  CODE*  1 
NEXT  RECORD  TYPES 


-47- 


A 


POTENTIAL  DOUeiE  DIPPER* 

62-UI  MACES*  2752 
OS-UI  MACES*  0 

M3.  OF  CHARACTERS  1*  ALL  TRANSACTION  RECORDS*  36 
NO.  OF  TRANSACTION  RECOTDS*  ! 

NO.  or  EHPLOTER  reconos*  l 

NO.  or  payment  transactions*  0 

NO.  or  0EC1SICN  TRANSACTIONS*  0 

NO.  or  REINSTATEMENT  TRANSACTIONS*  0 

NO.  or  ADDITIONAL  CLAIM  TRANSACTIONS*  0 

NEXT  RECORO  T1P£*4 

RECORO  TYPE* A 

EMPLOYER  lO»Jt758 

MACES  FROM  EMPLOYER*  2  752**5 

NEXT  RECORO  TYP£*3 

f YPC*  3 

LAST  DAY  W0RHED=670S6 

DATE  OF  CLAIM*  7066 

EFFECTIVE  DA  T  E*  66 1 84 

LAST  QUARTER  OF  BASE  PET  100*661 

LOCAL  0rriCE=A5 

OCCUPATION  A  FE A*  31 1. 878 

IASI  INDUSTRY  SIC*584 

REASON  FOR  SEPARATION*! 

NEXT  RECORD  TTP£*0 

SIC  OF  HI  MACE  EMPLOYER- 
RASE  PERIOD  MACES*  2776 
Ml Q  MACE*  775 
MSA-  806 
MBA*  31 

M9A  BALANCE*  806 
DEDUCTIONS*  0 
AMOUNT  PESTOPCO*  0 
TRANSITION  C0CC*0 
LOCAL  PROGRAM  C0DE*1 
PROGRAM  C  ODE*  I 
NEXT  RECORO  1YP£=0 

POTENTIAL  DOUBLE  DIPPER- 
A2-UI  MACES*  2776 
OS-UI  MAGES*  0 

NO.  OF  CHARACTERS  IN  ALL  TRANSACTION  RECOROS*  36 

NO.  0?  TRANSACTION  RECORDS*  1 

NO.  OF  EMPLOYER  RECORDS*  1 

NO.  OF  PAYMENT  TRANSACTIONS*  0 

KO.  OF  DECISION  TRANSACTIONS*  0 

NO.  OF  RE  INSTATEMENT  TRANSACTIONS*  7 

NO.  OF  AODITICNAL  CLAIM  TR  ANS  ACT  IONS*  0 

NEXT  RECORD  TYPE** 

RECORO  TYPE*  A 

EMPLOYER  10*26266 

MACES  FR CM  EMPLOYER*  2776^50 

MEXT  RECORD  TYPE*! 


TYPE-3 

LAST  OAY  W0RSED*68024 

DATE  OF  CLAIM*  1248 

EFFECT  I  VC  DA  TE*  680 21 

LAST  QUARTER  OF  BASE  PE*!0t>*673 

LOCAL  OFF ICE*45 

OCCUPATION  AREA*  31 1.878 

LAST  INDUSTRY  SIC-701 

REASON  FOR  SEPARATION^ 

NEXT  RECORD  TYPE-0 

SIC  OF  HI  MAGE  EMPLO Y£R»70 1 
BASE  TERIOD  MACES*  2916 
NIQ  MAGE*  937 
NBA*  973 
MBA*  38 

NBA  BALANCE*  973 
DEDUCTIONS*  0 
AMOUNT  RE  ST  OREO*  0 
TRANSITION  CODE-O 
LOCAL  PROGRAM  CODE*! 

PROGRAM  CODE*! 

NEXT  RECORO  TYPE-0 

potential  DOUBLE  dipper* 

A2-UI  WAGES*  2916 
OS-UI  MAGES*  0 

NO.  OF  CHARACTERS  IN  ALL  TRANSACTION  REGORDS* 

NO.  OF  TRANSACTION  RECORDS*  l 

NO.  OF  EMPLOYER  RECORDS’  1 

NO.  OF  PAYMENT  TRANS  ACTI'ONS*  0 

NO.  OF  DECISION  TRANSACTIONS*  0 

NO.  OF  RE  1 '.STATEMENT  TRANSACTIONS*  3 

NO.  OF  AODITICNAL  CLAIM  TRANSACTIONS*  0 

NEXT  RECORD  1YPE*4 

RECORD  T  YPC*  4 

EMPLOYER  10*26171 

MACES  FROM  EMPLOYER*  2QI6«»0 

NEXT  RECORO  IYPE=1 
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OBSERVATION  #4 


RECORD  TYPE3  l 

SCRAMBLED  SS N= 1 3060 104 5 

SEX=2 

RACE3  0 

BIRTH DAI £=21147 

1963  WAGE  AND  CLAIM  INDICATORS 

1964  WAGE  AND  CLAIM  IN0ICAT0R=0 

1965  WAGE  AND  CLAIM  IN0!CATCR=0 

1966  WAGE  AND  CLAIH  INDICATORS 

1967  WAGE  AND  CLAIH  IN0ICATCR=0 

1968  WAGE  ANO  CLAIM  INCICAT0R=1 

1969  WAGE  ANO  CLAIM  1NO!CATOR>3 

1970  WAGE  AND  CLAIH  INDICATORS 

1971  WAGE  AND  CLAIM  INDICATORS 
NO.  Or  INELIGIBLE  CLAIM  REC0R0S=0 

NO.  or  I NPORHATI ON  UNITS  TOR  THIS  SSN* 
NO.  OF  WAGE  REC0RCS=3 
NEXT  RECORD  TYPE=2 

RECORD  TTPE=2 

YEAR=1 968 

NO.  OP  INDUSTRIES^ 

NO.  Or  EMPLOYERS3! 

NO.  Or  WAGE  ITEMS3  3 
01  WAGES3  0 
01  SIC  =15 

*  02  WAGES3  126 

,  02  SIC  =19 

03  WAGES3  1284 
03  SIC  =19 
04  WAGES3  1246 
04  SIC  =19 
NEXT  RECORD  TYPES 

OTRS  WORKED  TOR  PE=3 
PE  WAGE  AS  PCT.  Or  TOTAL3  0 
'  PCT.  or  H 1 0  WAGE  PROM  PE«99 

PE  10=38172 
PE  SIC=1929 

SE  WAGE  AS  PCT.'  Or  TOTAL'3  0 
SE  SIC3  0 

OTRS  WORKED  rOR  SE=D 
I  EEL  AG3  1 
PCT  OP  WAGES3  0 
SJC»  0 

OTRS  WORKED3 0 
NEXT  RECORD  TYPE=2 


TYPE=2 

YEAR3 1969 

'  NO.  Or  INDUSTRIES3! 

NO.  or  EMPLOYERS3! 

NO.  or  WAGE  ITEMS3  4 
01  WAGES3  1047 
01  SIC  =19 
"02  WAGES3  1141 
02  SIC  =19 
03  WAGES3  600 
03  SIC  =19 
04  WAGES3  500 
04  SIC  =19 

*3  NEXT  RECORD  T1PE=0 

OTRS  WORKED  rOR  PE=4 
PE  WAGE  AS  PCT.  Or  TOTAL3  0 
PCT.  Or  H 1 0  WAGE  PROM  PE  =  99 
PE  ID* 3 81  72 
PE  S IC3 1929 

SE  WAGE  AS  PCT.  OP  TOTAL3  0 
SE  SIC3 

OTRS  WORKED  rOR  SE=0 
IETL AG=1 
PCT  CP  WAGES3  0 
SIC  3 

OTRS  WORKE0=O 
NEXT  RECORD  T1PE=2 

T YPE=2 

YEAR3 1970 

NO.  Or  INDUSTRIES^ 

NO.  or  EMPLO YERS32 
NO.  or  WAGE  ITEMS3  3 
01  WAGES3  116 
01  SIC  3 19 
02  W  tGES3  625 
02  SIC  =59 
03  WAGES3  139 
03  SIC  >59 
04  WAGES3  0 
04  SIC  3 

NEXT  RECORD  T1PE30 

OTRS  WORKED  rCR  PC  =2 
PE  WAGE  AS  PCT.  OF  T0TAL'=86 
PCT.  OF'  H 1 0  WAGE  FROM  PE  =  99 
PE  10=03669 
PE  S IC3 591 0 

SE  WAGE  AS  PCT.  OF  T0TAL=13 
SE  SIC3  19 

OTRS  WORKCO  rCR  SC31 
IEFUAG3 1 
PCT  CF  WAGES3  0 
SIC3- 

OTRS  WORKED3 0 
NEXT  RECORD  1YPE=3 
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TYPE* 3 

LAST  DAT  W0RKED=69T67 
DATE  OF  CLAIM  7179 
EFFECTIVE  DATE=6919A 
LAST  OUARTER  OF  BASE  PET  100=691 
LOCAL  OFF ICE=55 
OCCJPAT I  ON  A  REA*  7X  XX8  9  4 
"LAST  INDUSTRY  SIC=  1929 
REASON  FOR  SEPASATI0N=1 
NEXT  RECORD  TYPE=0 

SIC  OF  HI  WAGE  EMPLO YER* 1929 
BASE  PERI  00  WAGES-  3703 
HI 0  WAGE*  12  9  A 
MB  A=  1 2  3  4 
N3  A=SO 

NBA  BALANCE*  0 
DEDUCTIONS*  0 
AMOUNT  RESTORED*  23 
TRANSITION  C CCl=  0 
LOCAL  PROGRAM  C00E=1 
i  PROGPAH  CC0E=1 

NEXT  REC0°0  TYPE=0 

POTENTIAL  DOUBLE  DIPPER- 
AZ-UI  WAGES*  370  3 
OS-UI  WAGES*  0 

NO.  OF  CHARACTERS  IN  ALL  TRANSACTION  RED 

NO.  OF  TRANSACTION  REC0RDS=39 

NO.  OF  EMPLOYER  RECORDS*  1 

NO.  OF  PAYMENT  TRANSACTIONS* 31 

NO.  OF  OECISICN  TRANSACTIONS*  3 

NO.  OF  REINSTATEMENT  TRANSACTIONS*  0 

NO.  OF  ADDITIONAL  CLAIM  TR AN S ACT  13 NS*  3 

NEXT  RECORD  T YPE* A 

RECORO  TYPE* A 

EMPLOYER  ID* 391 72 

WAGES  FROM  EMPLOYER*  3  733*47 

NEXT  RECORD  TYPE=5 

RECORO  TYPE=5 

WEEK  ENDING  CLTE=69200 
OATE  PAID*69ZL0 
.  •  AMCL’NT  PAID*  0 

EARNINGS  FOR  WEEK=09N 
OrSCUALIFICATIQN  CODE*J 
SPECIAL  HA NOLI’NG  CODE* 

LOCAL  OFFICE  *55 

NEXT  RECORO  TYPE  *5 


TYPE*5 

WEEK  ENDING  DATE=69207 
OATE  P  AI 0=6  9210 
AMOUNT  PAIO*  3 
EARNINGS  FOR  REtK=09N 
DI SCUALIFICATTON  CCCE=J 
SPECIAL  HANDLING  CODE* 

LOCAL  OFFICE  *5$ 

"'NEXT  RECORO  TYPE  *6 

TYPE* 6 

START  OATE  OF  DIS3U  ALTFI’CA  T IOY  *69  19  A 
ENC  OATE  OF  OFSOUAL  IFI  CA TI’0N=6  921 A 
DATE  OF  DEC  I  SI  ON=S  9  20? 

TYPE  OF  DECIST3N=1 
LEVEL  OF  OE CIS! ON* 1 
ISSUE  COOE* J 
TYPE  OF  APPEAL* 

LOCAL  OFFICE  CCDC*55 
NEXT  RECORD  TYPE=5 

TYPE* 5 

WEEK  ENDING  DAT£*6921A 
OATE  P  A  1 0* 6  921  7 
ANOtNT  PAID*  3 
EARNINGS  FOR  WEEK=060 
DISQUALIFICATION  CODE** 

*  1369  SPECIAL  HANDLING  CODE¬ 
LOCAL  OFFICE  *5» 

NEXT  RECORO  TYPE  =5 

TYPE* 5 

WEEK  ENDING  DATE*6922l 
DATE  P  AI D*  6 922  6 
AMO  IN  T  PAID*  3 
EARNINGS  FCR  MEEK=000 
DISCUALIFICATTON  CCDE* 

SPECIAL  HANOLTNG  CODE- 
LOCAL  CFFICE  =55 

NEXT  RECORD  TYPE  -5 

TYPE*  5 

WEEK  ENDING  CATE=692291 
OATE  PAIC*692JJ 
AMOUNT  P  AI D=  53 
EARNINGS  FOR  WEEK=000 
DI SCUALIFICATTON  CODE** 

SPECIAL  HAN DLPNG  CODE* 

LOCAL  OFFICE  *  55 

NEXT  RECORO  TYPE  *5 
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TYPE-5 

WEEK  ENDING  DATE-69235 
DATE  PAI 0=69240 
AMOUNT  PAI 0=50 
EARNINGS  F  OR  WEEK-000 
DISQUALIFICATION  CODE* 
SPECIAL  HANOtrNG  COOE- 
LOCAL  OFFICE  *  55 

NEXT  RECORD  TYPE  *5 

TYPE*  5 

WEEK  ENDING  DATE-69242 
DATE  PAI D=  6924  9 
AMOUNT  P  A I D-53 
EARNINGS  FOR  WEEK-000 
D1SQ0ALIFI  CATI'ON  C  ODE* 
SPECIAL  HANOLTNG  CODE* 
LOCAL  OFFICE  »5» 

NEXT  RECORD  TYPE  *5 

TYPE-5 

WEEK  ENDING  DATE-6  9249 
DATE  PAID*  6  925  4 
AMOUNT  P  A I  D-  5} 

EARNINGS  FOR  WEEK-000 
DISCUALIFICATI'ON  CODE¬ 
SPECIAL  HANDLING  CODE- 
LOCAL  OFFICE  -  55 

NEXT  RECORD  TYPE  -5 

TYPE=5 

WEEK  ENDING  DATE-69256 
DATE  PAI  D-692-  l 
AMOUNT  PAID- 50 
EARNINGS  FOR  WEEK-000 
DISQUALIFICATION  CODE- 
SPECIAL  HANDLrNG'CODE* 
LOCAL  OFFICE  *55 

NEXT  RECORD  TYPE  -5 

TYPE-5 

MEEK  CNDING  DATE-69265 
DATE  PAID-69267 
AMOUNT  PAID-53 
EARNINGS  FOR  WEEK-030 
D I SCUALIFI C  A  T  TON  COOE- 
SPECIAL  HANDLING  CODE¬ 
LOCAL  OFFICE  -51 

NEXT  RECORD  TYPE  *5 

TYPE-5 

WEEK  ENDING  DATE-69270 
DATE  P  A I D=  6  927  4 
ANOINT  PAID-5) 

EARNINGS  FOR  WEEK-000 
DISQUALIFICATION  CODE- 
SPECIAL  HANDLING  COOE- 
LOCAL  OFFICE  -55 

NEXT  RECORD  TYPE  -5 


TYPE- 5 

WEEK  ENDING  DATE-6927P 
DATE  P AID- 6928 1 
AMOUNT  PAIO-53 
EARNINGS  FOR  WEEK-000 
DISQUALIFICATION  CODE- 
SPECIAL  HANDLING  COOE* 
LOCAL  OFFICE  -5» 

'NEXT  RECORD  TYPE  *5 

TYPE-5 

WEEK  ENDING  DATE-69284 
DATE  PAID- 692-8 
AMOUNT  P  At  0=5) 

EARNINGS  FOR  WEEK-000 
DISQUALIFICATION  CODE- 
SPECIAL  HANOLTNG  COOE- 
LOCAL  OFFICE  -55 

NEXT  RECORD  TYPE  -5 

TYPE-5 

WEEK  ENDING  DATE- 6 9 291 
DATE  PAIO-69295 
AMOUNT  PAID- 50 
EARNINGS  FOR  WEEK-000 
DISQUALIFICATION  CODE¬ 
SPECIAL  HANOLTNG  CODE- 
LOCAL  OFFICE  -55 

NEXT  RECORD  TYPE  -5 

TYPE-5 

WEEK  ENDING  DATE-6929S 
DATE  P  A I  D-69  30  5 
AMOUNT  PAID- 53 
EARNINGS  FOR  WEEK-000 
DI SCUALIFI CATfON  CODE- 
SPECIAL  HANDLING  COOE- 
LOCAL  OFFICE  -5» 

NEXT  RECORD  TYPE  -7 

TYPE-7 

EFFECTIVE  DATE-69355 
LAST  DAY  W ORKED-69  358 
DAYE  OF  CLAIM  =69358 
LAST  EMPLOYER  ID-38172 
LAST  EMPLOYER  SIC-1929 
REASON  FOR  SEPARATION-  1 
LOCAL  OFFICE-55 
NEXT  RECORD  TYPE-7 

TYPE-7 

EFFECTIVE  DATE-70004 
LAST  OAY  W ORKEO- 7000  7 
DATE  OF  CLAIM  =  73008 
LAST  EMPLOYER  ID-38172 
LAST  EHPLDTER  SIC-1929 
REASON  FOR  SE»  AR  AT  I  ON*  1 
LOCAL  OFFICE-55 
NEXT  RECORO  TtP£=5 


TYPE- 5 

HECK  ENDING  DATE-70010 
DATE  PAID-  7001  * 

AMOUNT  PAID-23 
EARKINGS  FOR  MEEK-04? 

01 SQUA  L I  FI C  AT  CON  CODE- 
SPECIAL  HANOLTNG  CODE- 
LOCAL  OFFICE  -SS 

'NEXT  RECORO  TYPE  -6 


TYPE- 5 

MEEK  ENOING  DATE-70017 
DATE  PAID-  7003 0 
AMOUNT  PAID- 3) 

EARKINGS  FOR  MEEK-000 
DISCUALIFIt  ATI-ON  CODE- 7 
SPECIAL  HANOLI’NG  CODE- 
LOCAL  OFFICE  -51 

NEXT  RECCRO  TYPE  *5 

TYPE-5 

MEEK  ENDING  DATE-70024 
OATE  PAIO- 70030 
AMOUNT  P  A I  0-53 
EARKINGS  FOP  UEEK-000 
OISOUALIFICATt ON  CODE- 
SPECIAL  HANDLING  CODE¬ 
LOCAL  OFFICE  =55 

NEXT  RECORO  TYPE  -5 


TYPE- 5 

MEEK  ENDING  DATE-70031 
DATE  PAID- 70035 
AMOUNT  PAID-5) 

EARKINGS  FOR  WEEK-000 
DISQUALIFICATION  CODE¬ 
SPECIAL  HANDLING  CODE¬ 
LOCAL  OFFICE  -55 

NEXT  RECORO  TYPE  *5 

TYPE-5 

MEEK  ENDING  DATE-700391 
OATE  P AI 0-70042 
AMOUNT  PAID-50 
EARKINGS  FOR  WEEK-000 
DISQUALIFICATION  CODE- 
SPECIAL  HANDLING  CODE* 

.  LOCAL  OFFICE  =53 

NEXT  RECORD  TYPE  *5 

TYPE- 5 

MEEK  ENOING  DATE-70045 
DATE  P  A 1 0*  7004  9 
AMOUNT  P AID-53 
EARKINGS  FOR  HEEK-OOD 
DISQUALIFICATION  CODE- 
SPECIAL  HANDLING  CODE- 
LOCAL  OFFICE  -5» 

NEXT  RCCCPD  TYPE  »5 

TYPE-5 

MEEK  ENOING  DATE-70052 
OATE  PAIO- 73056 
AMOUNT  P  AID-53 
EARKINGS  FOR  WEEK-000 
DISQUALIFICATION  CODE¬ 
SPECIAL  HANDLING  CODE- 
LOCAL  OFFICE  =53 

NEXT  RECORO  TYPE  -5 

TVPE-5 

MEEK  ENOING  DATE-70057 
DATE  PAID- 7005  3 
AMOUNT  PAIC-5D 
EARKINGS  FCR  WEEK-000 
DISQUALIFICATION  CODE- 
SPECIAL  HANDLING  CODE¬ 
LOCAL  OFFICE  =53 

NEXT  RECORO  TTPE  *5 

TYPE- 5 

HECK  ENDING  0ATE-7006e 
OATE  P  A I  0=  70 0^  0 
AMOUNT  P AI 0=  53 
EARNINGS  FOR  WEEK-000 
DISQUALIFICATION  CODE- 
SPECIAL  HANDLING  CODE- 
LOCAL  OFFICE  »S» 

NEXT  RECORD  TTPE  >5 


TYPE-6 

START  OATE  OF  01 SOUALI  FT’CA  T I  ON*  70004 

END  DATE  OF  OrS QU AL I FI  CAT TON-7  00  10 

OATE  OF  DECIsrON-70021- 

TTPE  OF  OECISrON-1 

LEVEL  OF  DEC  IS  ION- 1 

ISSUE  CCDE- J 

TTPE  OF  APPEAL- 

LOCAL  OFFICE  CODE-55 

NEXT  RECORD  TYPE-6 

TYPE-6 

START  OATE  OF  01  SO  U A LI  FIT  A  T I ON  -  70  029 

END  OATE  OF  OrSQUAL 1FT CATI DN-99599 

OATE  OF  OEC I  SI  ON-  3 

TYPE  OF  DtCISTON-S 

LEVEL  OF  DEC Ii I ON-O 

ISSUE  COOE- 

TYPE  OF  APPEAL- 

LOCAL  OFFICE  CODE-55 

NEXT  RECORD  UPE-5 


52 


type-5 

KEEK  ENDING  OA  TE*7007I 
DATE  PAID* 7007:7 
AMOUNT  PAID* 50 
EARNINGS  FOR  4EEK-000 
OISCUALiriCATFON  CODE* 
SPECIAL  HANDLPNG  CODE* 
LOCAL  OFFICE  *55 

'NEXT  RECORO  TTPE  *5 

TYPE* 5 

MEEK  ENDING  DATE*7008J 
DATE  PAID* 70034 
AMOUNT  P  A I  0  =  5 J 
EARNINGS  FOR  UEEK*000 
OISOUALIFICATI'CN  COOE* 
SPECIAL  HANDLING  COOE* 
LOCAL  OFFICE  *5$ 

NEXT  RECORO  TYPE  *5 

TYPE* 5 

MEEK  ENDING  DATE-70087: 
DATE  PAID* 70071 
AMOUNT  P AI 0=5) 

EARNINGS  FOR  4ECX-000 
01 SCUAL IFICATION  CODE* 
SPECIAL  HAN0LIN5  CODE* 
LOCAL  OFFICE  *SS 

NEXT  RECORD  TTPE  *5 

TTPE*5 

MEEK  ENOING  0ATE*7009A 
DATE  P AI 0=70008 
AMOUNT  PAI  0*50 
EARNINGS  FOR  4EEK-000 
DISQUALIFICATION  CODE* 
SPECIAL  HANOLPNG  COOE* 
LOCAL  OFFICE  *  5$ 

NEXT  RECORO  TYPE  *5 

TYPE* 5 

MCCK  ENOING  0ATE*70i0l 
DATE  PAID* 7010b 
AMOUNT  PAI 0*24 
EARNINGS  FOR  HEEK-OJO 
DISQUALIFICATION  code* 
SPECIAL  HANDLING  CODE* 
LOCAL  OFFICE  *51 

NEXT  RECORO  TYPE  *7 

TYPE* 7 

EFFECTIVE  0ATE*70179 
.  LAST  0  A Y  W  ORKCD*  70 1 76 
OATE  OF  CLAIM  *70182 
LAST  EMPLOYER  10*01689 
LAST  EMPLOYER  SIC=59l 
REASON  FCR  SEP  AR  AT  I  ON* i 
LOCAL  OFFICE** 5 
NEXT  RECORO  TYPE*S 


TYPE-5 

NECK  ENDING  DA TE*70185 
OATE  PAID* 70139 
ANOINT  PAI D*5> 

EARNINGS  FOR  MCCK-009 
DISQUALIFICATION  COOE* 
SPCCIAL  HANDLING  COOE* 
LOCAL  OFFICE  *55 

NEXT  RECORO  TTPE  *5 

TYPE*5 

MEEK  ENDING  CATE* 70192 
OATE  P  AI  0* 70  196 
AMOUNT  PAI 0* 10 
EARNINGS  FOR  4EEX-000 
DISQUALIFICATION  COOE*) 
SPCCIAL  HANDLING  COOE* 
LOCAL  OFFICE  *55' 

NEXT  RECORD  TYPE  *1 


OBSERVATION  #5 


TYPE* l 

SCRAMBLED  SSN-130401C66 

SEI*1 

RACE-0 

BIRIHDATE-23275 

1963  UASE  AND  CLAIM  INDICATORS 

1964  WAGE  AND  CLAIM  INOICATOR-O 

1965  MAGE  AND  CLAIM  INDICATORS 

1966  MAGE  AND  CLAIM  INDICATORS 

1967  MAGE  AND  CLAIM  INDICATORS 
1966  MAGE  AND  CLAIM  INDICATORS 

1969  MAGE  AND  CLAIM  INDICATORS 

1970  MAGE  ANO  CLAIM  INDICATOR* 1 

1971  MAGE  ANO  CLAIM  INDICATORS 
NO.  OF  INtLIGIELE  CLAIM  RECCRDSS 

NO.  OF  INFORMATION  UNITS  FOR  THIS  SSN* 
NO*  OF  MAGE  RECOROSS 
NEXT  RECORD  TYPES 

RECORD  TYPES 

YEAR* 1969 

NO.  OF  IN0USTRIES-2 
NO.  OF  EMPLOYERS^ 

NO.  OF  MAGE  ITEMS*  4 
01  MAGES*  0 
01  SIC  * 

02  MAGES*  2567 
02  SIC  *16 
03  MAGES*  2603 
03  SIC  =16 
04  MAGES*  2362 
04  SIC  *15 
NEXT  RECORD  T.YPC-0 

OTRS  MORKEO  FOR  PE*2 
PE  MAGE  AS  PCT.  OF  T0TAL=65 
PCT .  OF  H I  0  MAGE- FROM  PE  =  99 
PE  10=43592 
PE  S IC*  16 1 0 

SE  MAGE  AS  PCT.  OF  T0TAL*3< 
SE  S IC*  15 

OTRS  MORKEO  FOR  SE*2 
IEFCAG* l 
PCT  OF  MAGES*  0 
SIC* 

OTRS  H0RXE9S 
NEXT  RECORO  TYPE*2 


T YPE=2 

YEAR-1970 

NO.  OF  IN0USTRIES-2 
NO.  OF  EMPLOYERS-2 
NO.  OF  MAGE  ITEMS*  4 
01  MAGES*  2462 
01  SIC  *15 
02  MAGES*  31  37 
02  SIC  *16 
03  WAGES*  24 16 
03  SIC  *16 
04  MAGES*  0 
04  SIC  * 

NEXT  RECORO  TtPE*0 

«  OTRS  MORKEO  FOR  PE=3 

PE  MAGE  AS  PCT.  OF  TOTAL-81 
PCT.  OF  H 1 0  WAGE  FROM  PE=99 
PE  10*03317 
PE  SIC*  16 20 

SE  MAGE  AS  PCT.  OF  TOTAL-18 
SE  SIC* 15 

OTRS  WORKED  FOR  SE-1 

IEFLAG-I 

PCT  OF  MAGES*  0 

SIC* 

OTRS  MORKEO-O 
NEXT  RECORO  TYPE=2 

TYPE-2 

YE AS* 1971 

NO.  OF  INDUS  TR  I  ES= 1 
NO.  OF  EMPL 0 YERS  =  1 
NO.  OF  MAGE  ITEMS*  4 
01  MAGES*  4401 
01  SIC  *16 
02  MAGES*  5264 
02  SIC  *16 
03  MAGES*  5371 
03  SIC  *16 
04  MAGES*  1024 
04  SIC  *16 
NEXT  RECORO  TYPE*0 

OTRS  MORKEO  FCR  PE-4 
PE  MAGE  AS  PCT.  OF  TOTAL*  0 
PCT.  OF  HIO  MAGE  FROM  PD-99 
PE  ID-00817 
PE  SIC*  1623 

SE  MAGE  AS  PCT.  OF  TOTAL-  0 
SE  SIC* 

OTRS  MORKEO  FOR  SE-0 

IEFLAG-I 

PCT  OF  MAGES*  0 

SIC* 

OTRS  N0RKCD*0 
NEXT  RECORD  1YPE*3 
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RE  CORO  TYPE-3 

LAST  DAY  WORKED*  70  365 
DATE  OF  CLAIM*  1061 
EFFECTIVE  DATE-71003 
LAST  OUARTER  CF  BASE  PERIOD* 703 
LOCAL  OFFICE-302 
^OCCUPATION  AREA-859. 883 
"LAST  INDUSTRV  SIC-162 
REASON  FOR  SEPARATION-1 
NEXT  RECORO  T1PE-0 

SIC  OF  HI  WAGE  EHPLO  YER-*162 

BASE  PERIOD  NAGES-10190 

HI  0  WAGE-  3136 

HBA-1300 

WBA-50 

H3  A  BALANCE-1300 
DEDUCTIONS-  0 
AMOJNT  RESTORED-  0 
TRANSITION  COCE-O 
LOCAL  PROGRAM  CODE-1 
PROS  RAM  CODE-1 
NEXT  RECORO  TTPE-0 

POTENTIAL  OOueLE  DIPPER* 

AZ-UI  WAS  ES= 10190 
OS-UI  WAGES-  0 

NO.  OF  CHARACTERS  IN  ALL  TRANSAC TI’ON  RECORDS- 

NO.  OF  TRANSACTION  RECORDS-  3 

NO.  OF  EMPLOTER  RECOROS*  I 

NO.  OF  PAYMENT  TRANS  ACT  TONS-  0 

NO.  OF  DECISION  TRANSACTIONS-  0 

NO.  OF  REINSTATEMENT  TRANSACTIONS*  0 

NO.  OF  AODITICNAL  CLAIM  T  R  AN  S  ACT.  I3NS  -  0 

NEXT  RECORD  TtPE-A 

RECORO  TYPE* A 

EMPLOYER  ID-00817 

WA&ES  FROM  EMPLOYER-  6527.79 

NEXT  RECORO  TYPE-A 

RECORD  TYPE-A 

EMPLOYER  ID-41279 
WAGES  FROM  EMPLOYER-  !571.«00 
.  .  NEXT  RECORO  TYPE-4 

P 

RECORD  TYPE-4 

EMPLOYER  10-43592 

WAGES  FROM  EMPLOYER-  7  l.<76 

NEXT  RECORD  TYRE-1 

t 
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OBSERVATION  #6 


T  YPE* 1 

SCRAM3LEO  SSN=1 30501066 

SEX*2 

RACE-0 

BIRTHD AT £=23043 

1963  U A3  E  ANO  CLAIM  INDICATORS 

1964  MAGE  A  NO  CLAIM  lNCICATOR=l 

1965  MAGE  ANO  CLAIM  INDICATORS 

1966  MAGE  ANO  CLAIM  INDICATORS 

1967  MAGE  AND  CLAIM  INDICATORS 

I960  MAGE  ANO  CLAIM  INDICATOR*! 

1969  MAGE  ANO  CLAIM  INDICATORS 

1970  MAGE  AND  CLAIM  INDICATORS 

1971  WAGE  ANO  CLAIM  INDICATORS 

NO.  OE  INELIGIBLE  CLAIM  REC0RDS*0 

NO.  OF  I NrORMAT I  ON  UNITS  TOR  THIS  SSN* 
NO 4  OE  MAGE  R£COROS=8 
NEXT  RCCCRO  TYFE=2 


RECORD  T YPE=2 

YE  AR* 1967 

NO.  or  INDUSTRIES*! 

NO.  or  EMPLOYERS'*  1 
NO.  or  MAGE  ITEMS*  4 
01  MAGES*  1399 
01  SIC  *36 
02  MAGES*  1582 
02  SIC  =36 
03  MAGES*  1493 
03  SIC  =36 
04  MAGES*  1610 
04  SIC  *36 
NEXT  RECORD  T1PC=0 

'  ‘  OTRS  WORKED  EGR  PE=4 

PE  MAGE  AS  PCT.  .  OP  TOTAL*  0 
PCT.  or  H 1 0  WAGE  FROM  PE*99 
PE  10=482  70 
PE  SI C=  36  74 

SE  MAGE  AS  PCT.  OF  TOTAL*  0 
SE  SIC*  0 

OTRS  WORKED  FOR  SE=0 
JEFL’AG*  1 
PCT  OF  MAGES*  0 
SIC*  0 

OTRS  M0RKEQ=0 
NEXT  RECORD  TTP£=2 


TTPE*2 

YEAR* 1968 

NO.  or  INDUS TR IES* 1 
NO.  OF  £MPL0YERS=1 
NO.  OF  MAGE  ITEMS*  3 
01  MAGES*  1564 
01  SIC  *36 
"02  MAGES*  789 
02  SIC  =36 
03  MAGES*  0 
03  SIC  *50 
04  MAGES*  547 
04  SIC  =36 
NEXT  RECORO  TYPE=0 

OTRS  WORKED  FCR  PE=3 
PE  MAGE  AS  PCT.  OF  TOTAL*  0 
PCT.  OF  HIO  MAGE  FROM  P£=99 
PE  10=48270 
PE  SIC*3674 

SE  MAGE  AS  PCT.  OF  TOTAL*  0 
SE  SIC*  3 

OTRS  HORKEO  FCR  S£=0 
IEFLAGS 
PCT  OF  MAGES*  0 
SIC*  0 

OTRS  WORKED*!) 

NEXT  RECORO  IYPE*2 

TYPE*2 

YE  AR*1 964 

NO.  OF  INDUSTRIES*! 

NO.  OF  EMPL 0 Y£PS  =  1 
NO.  OF  MAGE  ITEMS*  4 
01  MAGES*  1111 
01  SIC  *36 
02  MAGES*  1118 
02  SIC  *36 
03  MAGES*  1149 
03  SIC  *36 
04  MAGES*  1175 
04*  S I C  =36 
NEXT  RECORO  TYP£*0 

OTRS  MORKED  FOR  PE=4 
PE  MAGE  AS  PCT.  OF  TOTAL*  0 
PCT.  OF  HID  MAGE  FROM  P£=99 
PE  10*40293 
PE  SIC*  3674 

SE  MAGE  AS  PCT.*  OF  TOTAL*  0 
SE  SIC* 

OTRS  MORKCD  FOR  SE*9 
1EFUAG* 1 
PCT  OF  MAGES*  0 
SIC* 

OTRS  MORKED*  0 
NEXT  RECORD  TYPE*2 
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TVPE*2 

YEAR* 1 965 

NO.  OF  INDUSTR ICS* 2 
NO.  OF  EHPLO YERS*2 
NO.  OF  WAGE  ITEMS*  5 
01  RAGES*  1 2  C9 
01  SIC  *28 
"02  RAGES*  1222 
02  SIC  *28 
03  RAGES*  1222 
03  SIC  *28 
04  RAGES*  1231 
04  SIC  *36 
NEXT  RECORD  1YPE*0 

•OTRS  WORKED  FCR  PE*4 
PE  RAGE  AS  PCT<  OF  70TAL*82 
PCT.  OF  H I 0  WAGE  FROM  PD-31 
PC  10*40293 
PE  S IC=28 19 

SE  RAGE  AS  PCT.  OF  T0TAL*17 
SE  S IC* 35 

OTRS  WORKED  FOR  SE*1 
IEFLAG*  1 
PCT  Or  WAGES*  0 
SIC* 

OTRS  RORKEC*  0 
NEXT  RECORD  TYPE*2 

Y  YPE*2 

YEAR  *1966 

NO.  OF  INDUSTRIES* 1 
NO.  OF  EMPL0YERS*1 
NO.  OF  WAGE  ITEMS*  4 
01  RAGES*  1460 
01  SIC  *36 
02  RAGES*  1695 
02  SIC  *36 
03  RAGES*  1448 
03  SIC  *36 
04  RAGES*  743 
04  SIC  *36 
NEXT  RECORD  TYPE*0 

OTRS  WORKED  FOR  PC*4 
PE  RAGE  AS  PCT.  OF  TOTAU*  0 
PCT.-  OF  HIO  RAGE  FROM  PE *99 
■PC  10*48270 
PC  SIC*  1674 

SC  RAGE  AS  PCT<  OF  TOTAL'*  0 
SC  SIC* 

OTRS  WORKED  FOR  SC*9 
ICFL'AG*  1  - 

PCT  OF  RAGES*  0 
SIC* 

OTRS  WORKED* 0 
NEXT  RECORD  TYPC*2 


fYPE-2 

VC AR*1969 

NO.  OF  INDUSTRIES* 1 
NO.  OF  EHPL0Y£RS*1 
NO.  OF  RAGE  ITEMS*  4 
01  WAGES*  691 
„0l  SIC  *36 
02  WAGES*  753 
02  SIC  *36 
03  WAGES*  480 
03  SIC  *36 
04  WAGES*  1070 
04  SIC  *36 
NEXT  RECORD  TYPE=0 

OTRS  WOKXCD  FOR  PE*4 
PE  WAGE  AS  PCT.  OF  TOTAL*  0 
PCT.  OF  MIQ  WAGE  FROM  PE*99 
PC  10*482  70 
PC  SIC* 1674 

SE  WAGE  AS  PCT.  OF  TOTAL*  0 
SE  SIC* 

OTRS  WORKED  FCR  SE*0 
IEFL AG=1 
PCT  OF  RAGES*  0 
SIC* 

OTRS  W0RKED*0 
NEXT  RECORD  TYPE* 2 

T YPE=2 

YEAR*  1970 

NO.  OF  INDUSTRIES* 1 
NO.  OF  EMPLOYERS*! 

NO.  OF  RAGE  HEMS*  4 
01  WAGES*  951 
01  SIC  *36 
02  WAGES*  960 
02  SIC  -36 
03  WAGES*  929 
OS  SIC  *36 
04  WAGES*  1136 
04*  SIC  *36 
NEXT  RECORD  TYPE-0 

OTRS  WORKED  FOR  PE*4 
PE  RAGE  AS  PCT.-  OF  TOTAL*  0 
rcr.  OF  HIO  WAGE  FROM  PE-99 
PE  10=48270 
PE  5 IC* 36 74 

SE  RAGE  AS  PCT.  OF  TOTAL*  0 
SE  SIC* 

OTRS  WORKEO  FOR  S£*0 
IEFLAG* 1 
PCT  OF  RAGES*  0 
SIC* 

OTRS  M ORK CD* 0 
NEXT  RECORD  TYPE-2 


type=2 

Y£AR=197l 

NO.  or  I  NOUS  TRIES* 1 
NO.  OF  EMPLOYERS* 1 
NO.  OF  WAGE  ITEMS®  4 
01  MAGES*  lost 
01  SIC  *36 
'02  MAGES*  1077 
02  SIC  * 36 
0}  MAGES*  1174 
03  SIC  *36 
04  MAGES*  1545 
04  SIC  *36 
NEXT  RECORO  TYPE*0 

OTRS  HORSED  FCR  PE*4 
PE  MAGE  AS  PCT.  OF  TOTAL*  0 
PCI.  OF  HIO  MAGE  FROM  PE=99 
PE  10=482  70 
PE  SIC® 3674 

SE  MAGE  AS  PCT.  OF  TOTAL*  0 
SE  SIC* 

OTRS  HORSED  FOR  SE=0 
IEFL  AG* 1 
PCT  OF  MAGES*  0 
SIC* 

OTRS  MOFK ED* 0 
NEXT  RECORO  TYPE=3 

TYPE* I 

LAST  OAT  MGR  KED*  6  8122 

DATE  OF  CLAIM*  5028 

EFFtCTI VE  DA  TE=  6  8119 

LAST  OUARTER  CF  BASE  PERI0D=674 

LOCAL  OFF  ICE  *60 

OCCUPATION  A  PEA*  92  9. 887 

LAST  INCUSTRY  SIC*3674 

REASON  FOR  SEPARATI0N®2 

NEXT  RECORO  IYPE=0 

SIC  Or  HI  MAGE  EMPLOYER* 3674 
BASE  PERIOD  MAGES*  6083 
HIO  MAGE*  1609 
M3  A*U18 
M8  A*  45 

MBA  8ALANCE*  129 
DEDUCTIONS*  172 
AMOUNT  RESTORED*  0 
TRANSITION  C  C  CE=  0 
LOCAL  PftOGRAM  C0DE=1 
PROGRAM  CODE*  1 
NEXT  RECORO  TYPE=0 


POTENTIAL  OOUeLE  DIPPER* 

A2-UI  MAGES*  6083 
OS-UI  MAGES*  0 

NO.  OF  CHARACTERS  IN  ALL  TRANSACTION  RECORDS* 
NO.  OF  TRANSACTION  RECOTOS*28 
NO.  OF  EMPLOYER  RECORDS*  1 
NO.  OF  PAYMENT  TRANS  ACT TONS* 24 
"NO.  OF  DECISICN  TRANSACTIONS*  2 
NO.  OF  REINSTATEMENT  TRANSACTIONS*  I 
NO.  OF  AODIIIQNAL  CLAIM  TRANSACT I3NS*  0 
NEXT  RECORO  7TPE=4 

RECORD  TYPE* 4 

EMPLOYER  10*4*270 

NAGES  FROM  EMPLOYER*  6033*10 

NEXT  RECORO  TYPE*5 

RECORO  TYPE* 5 

MEEK  ENDING  DATE=68I25 
DATE  PAID* 68137 
AMOUNT  PAID*  3 
EARNINGS  rCR  HEEK=062 
DISQUALIFICATION  CODE* A 
SPECIAL  HANOLTNG  CODE* 

LOCAL  OFFICE  *6) 

NEXT  RECORD  TYPE  *5 

RECORD  TYPE*5 

WEEK  ENDING  0ATE*68132 
DATE  PAID* 68137 
ANOINT  PAID*  ) 

EARNINGS  FOR  MEEK* 

01 SQUAL IFICATTON  COOE-A 
SPECIAL  HANDLING  CODE* 

LOCAL  OFFICE  =  63 

NEXT  RECORD  TYPE  *6 

RECORO  TYPE® 6 

START  DATE  OF  01 SOUALI FTCAT I  CM* €8 1 1 9 
CNO  DATE  OF  D1 S QUAL 1FI CAT  I 0N=» 8  153 
DATE  OF  CEC  I  SrON'=  68  1  36 
TYPE  OF  OCCIsrCN*! 

LEVEL  OF  DECISION*! 

ISSUE  CODE* A 
TYPE  OF  APPEAL* 

,  LOCAL  OFFICE  C0DE=60 
NEXT  RECORD  TYPE=5 

RECORO  TYPE=5 

MEEK  ENOING  0ATE*6813» 

DATE  PAID* 681.3 
AMOUNT  PAID*  3 
EARNINGS  FOR  MEEK* 

01  S QUALIFICATION  CODE*  A 
*  SPECIAL'  HANDLING  CODE* 

LOCAL  OFFICE  *63 

NEXT  RECORO  TYPE  -8 


1008 
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iype*8 

EFFECTIVE  DATE*6615* 
LOCAL  OFFICE*60 
NEXT  RECORD  TYPE=5 

1YPE*5 

HECK  ENDING  DATE=6816J 
DATE  PAI  0=68  ISA 
AMOUNT  PAI 0=  0 
EARNINGS  FOR  A  EEK* 

01 SQUAL IFIC A T?CN  COOE* 
SPCCIAL  HANDLING  CODE* 
LOCAL  OFFICE  >69 

NEXT  RECORO  TYPE  *5 

type®  5 

MEEK  ENDING  0*TE=68l&7 
DATE  PA  I  D=  68 17 1 
AMOUNT  PAIO**J 
EARNINGS  FOR  U EEK* 
DISQUALIFICATION  COOE=* 
special  handling  CODE* 
LOCAL  OFFICE  »6> 

NEXT  RECORO  TYPE  >5 

TYPE* 5 

KEEK  ENDING  D*TE*6B174 
DATE  PAI 0=  6817 8 
AMOUNT  PAI 0* AS 
EARNINGS  FOR  WEEK* 
DISQUALIFICATION  CODE* 
SPECIAL  HANDLING  COOE* 
LOCAL  OFFICE  •« 

NEXT  RECORO  TYPE  *5 

TVPE=5 

"  WEEK  ENDING  DATE=6818l 
OATE  PAI 0=  S8 18*5 
ANOINT  PAID**! 

EARNINGS  FOR  REEK* 
DISQUALIFICATION  CODE*  ' 
SPECIAL  HAN0LTN5  CODE* 
LOCAL  OFFICE  « 6) 

NEXT  RECORD  TTPE  »5 

TTPE*5 

*  MEEK  ENDING  DATE=6818* 

OA  IE  PAID* 68172 
AMOUNT  PAID**! 

EARNINGS  FDR  4CEK=000 
DISQUALIFICATION  CODE* 
SPECIAL  HANDLING  CODE* 
LOCAL  OFFICE  *6) 

NEXT  RECORD  TTPE  *5 


ITPE*5 

MEEK  ENOINO  DA  T E*68  1 95 
OATE  PAI 0=68  21 1 
AMOUNT  PAIO=*I 
EARNINGS  FOR  AEEK=000 
DISQUALIFICATION  CODE* 

SPECIAL  HANDLING  COOE* 

LOCAL  OFFICE  *61 

NEXT  RECORD  TYPE  »5 

TYPE=5 

HEEK  ENDING  DATE*68202 
DATE  PAI  0=6321  6 
AMOUNT  PAIO*  0 
EARNINGS  FOR  AEEK*000 
DI SCOAL  IFICATTON  CODE=E 
SPECIAL  HANOLl’NG  CODE* 

LOCAL  OFFICE  *61 

NEXT  RECORD  TTPE  *6 

TTPE* 6 

START  DATE  OF  01  SOU  AL  I  FI’CA  T  ION  =  68  196 
END  DATE  OF  01 SQUAL IFI CA TrON=6 8202 
DATE  OF  DEC  ISI’0N=68  205 
TYPE  OF  DECISION*! 

LEVEL  OF  OE CIS,! ON*  1 
ISSUE  CODE=E 
TTPE  OF  APPEAL* 

LOCAL  orncc  C0DE=60 
NEXT  RECORO  TTPE*5 

TTPE=5 

HEEK  ENDING  DATE=66207 
DATE  PAID* 68213 
AMOUNT  PAID**! 

EARNINGS  FOR  AEEK=000 
01 SQUALIFICATTON  CODE* 

SPECIAL  HANOLrNG  CCOE* 

LOCAL  OFFICE  *61 

NEXT  RECORO  TTPE  *5 

TTPE* 5 

HEEK  ENDING  D*TE*68216 
DATE  PA  ID*  68220 
AMOUNT  PAID**! 

EARNINGS  FOR  WEEK=000 
01  SQUAL  IFI  C  ATI  ON  CCOE* 

SPECIAL  HANDLING  CODE* 

LOCAL  OFFICE  *6) 

NEXT  RECORD  TTPE  *5 


« 
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TYPE*  5 

WEEK  ENDING  OATE'68223 
DAVE  PA  I 0*  6622  7 
AMOUNT  P AI D=  45 
EA'RKINGS  FOR  WEEX'OOO 
DISCUALIFICATrON  CODE* 
SPECIAL  HANOLTNG  COOE* 
LOCAL  OFFICE  *•« 

NEXT  RECORO  TYPE  -3 

TYPE'S 

WEEK  ENDING  D4  T E=  68  250 
DATE  PAID*  6825  4 
AMOUNT  P AI 0=  45 
EARNINGS  FOR  4EEK=000 
DISCUALIFICATTON  COOE* 
SPECIAL  HANOLTNG  CODE- 
LOCAL  OFFICE  >6} 

NEXT  RECORD  TYPE  «5 

TYP£=  5 

WEEK  ENDING  0aTE*68237 
DATE  PAID=68  24  1 
AMOUNT  P AI 0=  45 
EARNINGS  FOR  KEEK-000 
DISQUALIFICATION  CODE* 
SPECIAL  HANDLTNG  CODE* 
LOCAL  OFFICE  >6) 

NEXT  RECORO  TYPE  *5 

TYPE*  5 

WEEK  ENDING  0ATE*68244 
DATE  P  A I  D=  6  3  24  8 
AH  (TINT  PAID*  4! 

EARNINGS  FOR  KEEK=000 
DISOUALIFICATTON  CODE* 
SPECIAL  HANOLTNG  CODE* 
LOCAL  OFFICE  *  63 

NEXT  RECORO  TYPE  •$ 

TYPE=5 

WEEK  ENDING  04TE=6825l- 
OATE  P  AI 0=  6825  5 
AMOUNT  P AI 0*  45 
EARNINGS  FOR  WEEK'OOO 
DISCUALIFICATTON  COOE* 
SPECIAL  HANDLING  CODE* 
LOCAL  OFFICE  *6) 

NEXT  RECORO  TYPE  *3 

TYPE*  5 

WEEK  ENDING  DATE=6325S 
DATE  PAID-'  68262 
ANCUNT  P  AI 0*  45 
EARNINGS  FOR  MEEX'OOO 
DISCUALIFICATTON  CODE* 
SPECIAL  HANDLING  CODE* 
LOCAL  OFFICE  *6) 

NEXT  RECORD  TYPE  *5 


TYPE'S 

WEEK  ENDING  DATE'66265 
DATE  P  A I 0*682S  9 
AMOUNT  PAI 0*43 
EARNINGS  FOR  4EEK*000 
DISCUALIFICATrON  CODE* 
SPECIAL  HANOLTNG  CCOE* 
LOCAL  OFTICE  • 65 

NEXT  RECORD  TYPE  *5 

TYPE'S 

WEEK  ENDING  DATE*6f827> 
OATE  PAID*  682r6 
AMOUNT  P AI 0* 45 
EARNINGS  FOR  MEEK'050 
DISCUALIFICATTON  CODE* 
SPECIAL  HANOLTNG  COOE* 
LOCAL  OFFICE  *6) 

MEXI  RECORD  TYPE  *5 

TYPE'S 

WEEK  ENDING  DATE=6827* 
DATE  PAI  D*  6823*5 
AMOUNT  P  AID*43 
EARNINGS  FOR  NEEK'OOO 
DISCUALIFICATTON  CODE* 
SPECIAL  HANDLING  CODE* 
LOCAL  OFFICE  *65 

NEXT  RECORD  TYPE  *5 

TYPE*5 

WEEK  E  NO  INS  OATE'68286 
DATE  PAI 0*68270 
AMOUNT  PAI 0*45 
EARNINGS  FOR  4EEK*000 
DISCUALIFICATrON  COOE* 
SPECIAL  HANOLTNG  CCOE* 
LOCAL  OFTICE  *65 

NEXT  RECORD  TYPE  *5 

TYPE'S 

WEEK  ENDING  OaTE'6829! 
DATE  P  A 1 0*  682?  7 
AMOUNT  P  AI D*  45 
EARNINGS  FOR  KEEK'005 
DISQUALIFICATION  CODE* 
SPECIAL  HANOLTNG  COOE* 
LOCAL  OFFICE  «6) 

NEXT  RECORO  TYPE  *5 

TYPE'S 

WEEK  ENDING  DA  TE*68  300 
DATE  P  AI 0*68  35  5 
AMOUNT  PAI  0*45 
EARNINGS  FOP  MEEK'OOO 
DISCUALIFICATTON  COOE* 
SPECIAL  HANDLING  COOE* 
LOCAL  OFFICE  *63 

NEXT  RECORD  TYPE  -1 


A  TECHNICAL  DESCRIPTION  OF  THE  LEED  TAPE 


THE  ARIZONA  LEED  TAPE  IS  9  TRACK.  1600  BPI.  EBCDIC  CODED  WITH  A 
LOGICAL  RECORD  LENGTH  OF  50  CHARACTERS  AND  A  PHYSICAL  RECORD ( I  .E.  BLOCK- 
SIZE)  LENGTH  OF  5800  CHARACTERS < I .E.  THE  BLOCKING.  FACTOR=iOO) .  THE 
TITLE  OF  THE  TAPE  FILE  IS  • 003201/ARIZ0NA* . 


DOCUMENTATION  FOR  THE  LEED/ARIZ/READ/VER2  PROGRAM 

(THIS  DOCUMENTATION  SHOULD  BE  READ  IN  CONJUNCTION  WITH 
ACCOMPANYING  ‘DETAILED  DESCRIPTION  OF  THE  ARIZONA  LEED  FILE'CWHICH  IS 
HEREAFTER  REFERRED  TO  AS  ‘REFERENCE  l.‘3> 

THIS  PROGRAM  READS  AND  THEN  LISTS  OUT  ON  THE  LINE  PRINTER  IN  A 
READABLE  FORMAT  THE  DATA  STORED  ON  THE  ARIZONA  LEED  TAPE.  THE  PRO¬ 
GRAM  HAS  BEEN  MADE  AS  MACHINE  INDEPENDENT  AS  POSSIBLE.  HOWEVER.  YOU 
SHOULD  STILL  READ  THROUGH  IT  TO  INSURE  ITS  COMPATIBILITY  WITH  YOUR 
MACHINE (OUR  MACHINE  IS  A  BURROUGHS  6700  WHICH  USES  48  BIT  WORDS  AND  8 
BIT  CHARACTERS.) 


THE  PROGRAM'S  VARIABLES 

•IN100*  IS  A  VECTOR  IN  WHICH  ARE  STORED  THE  38  DIFFERENT  DATA  ITEMS  CON¬ 
TAINED  IN  A  HEADER  RECORD(SEE  REFERENCE  1.)  INiOO  USES  39  WORDS 
OF  STORAGE( INSTEAD  OF  38)  BECAUSE  DATA  ITEM  3.  THE  SCRAMBLED 
SSN,  IS  STORED  AS  9  ALPHANUMERIC  CHARACTERS ( STORING  IT  AS  19 
WOULD  CAUSE  ANY  LEADING  ZEROES  TO  DISAPPEAR.)  ON  OUR  MACHINE. 

'  WHICH  STORES  A  MAXIMUM  OF  6  CHARACTERS  PER  WORD.  9  CHARACTERS 
REQUIRE  2  WORDS  OF  STORAGE.  HENCE  THE  SSN  IS  STORED  IN  IN100(3) 
AND  IN  IN100(4).  THIS  VECTOR  WAS  CALLED  INiOO  BECAUSE  IT  IS 
FILLED  WITH  DATA  BY  THE  ‘READ*  AT  STATEMENT  NO.  100. 

•IN200*  IS  A  VECTOR  IN  WHICH  ARE  STORED  THE  15  DIFFERENT  DATA  ITEMS  CON¬ 
TAINED  IN  AN  EMPLOYER  RECORD(SEE  REFERENCE  1.  DATA  ITEM  16-SIZE 
TABLE-HAS  BEEN  IGNORED.)  IN2G0  USES  16  WORDS  OF  STORAGE ( INSTEAD 
OF  15)  BECAUSE  DATA  ITEM  3.  THE  EIN.  IS  STORED  AS  9  ALPHANUMERIC 
CHARACTERS  WHICH  REQUIRE  2  WORDS  OF  STORAGE ( IN200(3)  AND 
IN200(4) • )  AS  WITH  INIOO  THI5  VECTOR  IS  CALLED  IN200  BECAUSE 
IT  IS  FILLED  WITH  DATA  BY  THE  ‘READ*  AT  STATEMENT  NO.  200. 

•NPRINT*  IS  THE  PARAMETER  YOU  SET  TO  SPECIFY  HOW  MANY  PEOPLE  THE  PRO¬ 
GRAM  WILL  LOOK  AT.  FOR  EX.,  TO  SEE  THE  DATA  ON  23  PEOPLE  SET 
NPRINT=23. 

•STAR*  IS  A  STRING  CONSTANT  WHICH  IS  SET  «  TO  A  STAR( *) .  STAR  IS  USED 
BY  THE  ‘WRITE*  AT  LINE  230  TO  WRITE  A  ROW  OF  STARS  BETWEEN  THE 
DATA  FOR  DIFFERENT  PEOPLE. 

•NORECS*  IS  A  COUNTER  WHICH  KEEPS  TRACK  OF  THE  NO.  OF  RECORDS  READ  BY 
THE  PROGRAM. 

•NOSSNS*'  IS  A  COUNTER  WHICH  KEEPS  TRACK  OF  THE  NO.  OF  PEOPLE  THE  PRO¬ 
GRAM  HAS  LOOKED  AT.  THE  PROGRAH  ENDS  AS  SOON  AS  NOSSNS3 
NPRINT (SEE  STATEMENT  NO.  50  AT  LINE  180.) 


FORTRAN  PROGRAM  TO  READ  THE  LEED  TAPE 


LINES  100  AND  110  ARE  FILE  DECLARATION  CARDS  WHICH  TELL  OUR  MACH¬ 
INE  WHAT  PHYSICAL  FILE  TO  ASSOCIATE  WITH  WHICH  UNIT  NO. 

IN200 ( 1 >  IS  SET  =  TO  2  AT  LINE  170  BECAUSE  WE  KNOW  THE  FIRST  REC¬ 
ORD  ON  THE  TAPE  IS  A  HEADER  RECORD ,  AND  WE  DO  NOT  WANT  THE  TEST  AT  LINE 
190  TO  FAIL  THE  FIRST  TIME  THROUGH (THIS  TEST  WILL  BE  SPOKEN  OF  AGAIN 
LATER.) 

LINES  200-200  INPUT  AND  OUTPUT  HEADER  RECORDS. 

THE  DO  LOOP  ON  LINES  290-430  INPUTS  AND  OUTPUTS  A  PERSON'S  EMPLOY¬ 
ER  RECORDS.  THE  LOOP  USES  INiOO(iO)  WHICH  IS  DATA  ITEM  9  IN  THE  HEADER 
RECORD-TOTAL  EMPLOYER  COUNT-AS  THE  LOOP'S  TEST  VALUE.  IN  OTHER  WORDS. 
LINES  300-420  WILL  BE  REPEATED  INlGO(iO)  TIMES.  WHEN  THE  DO  LOOP  IS 
SATISFIED  THE  NEXT  RECORD  TO  BE  READ  SHOULD  BE  THE  NEXT  PERSON'S  HEAD¬ 
ER  RECORD.  THEREFORE.  NOSSNS  IS  INCREMENTED  BY  i (WE'VE  JUST  FINISHED 
PROCESSING  ANOTHER  PERSON).  AND  CONTROL  IS  RETURNED  TO  STATEMENT  NO.  50 
(LINE  180).  HOWEVER.  IF  THE  VALUE  IN  INIOO(IO)  IS  NOT  THE  TRUE  NUMBER 
OF  EMPLOYERS  FOR  THIS  PERSON  THE  LOOP  WILL  BE  EXECUTED  AN  INAPPROPRIATE 
NUMBER  OF  TIMES.  THIS  SHOULD  NEVER  HAPPEN.  INxOO(lO)  SHOULD  ALWAYS  DE 
CORRECT.  HOWEVER.  THE  TEST  AT  LINE  190  IS  PROVIDED  AS  A  SAFEGUARD.  IT 
CHECKS  TO  MAKE  SURE  THAT  THE  DO  LOOP  HAS  INDEED  READ  ALL  OF  THE  LAST 
PERSON'S  EMPLOYER  RECORDS,  AND  THAT  THE  TAPE  POINTER  IS  POINTING  TO  A 
HEADER  RECORD (REMEMBER  FROM  REFERENCE  I  THAT  A  RECORD  TYPE  OF  2  IND¬ 
ICATES  THE  LY^ST  EMPLOYER  RECORD  FOR  THIS  EMPLOYEE.) 

WHEN  NOSSNS=NPRINT  CONTROL  PASSES  TO  STATEMENT  NO.  500(LINE  460). 
AFTER  PRINTING  A  CONCLUDING  MESSAGE  THE  PROGRAM  STOPS  AT  STATEMENT  NO. 
600(LINE490) .  1 

LINES  500-620  CONTAIN  CODE  REFERENCED  ONLY  IN  THE  RESULT  CLAUSE 
LISTS  OF  THE  ‘READ'S  ON  LINES  100  AND  200. 

LINES  630-680  ARE  REFERENCED  ONLY  IF  THE  TEST  AT  LINE  190  FAILS. 

THE  END. 

IF  THERE  ARE  ANY  QUESTIONS  PLEASE  CALL  JON  BECK  AT  524-9400(EXT .343) . 

NOTE)  (i)  OUR  PRINTER  LISTS  APOSTROPHES  AS  GREATER  THAN  OR  EQUAL  TO 
SIGNS,  AND  THE  BACK  ARROW  ON  LINE  670  SHOULD  BE  AN 
EXCLAMATION  POINT. 

(2)  DATA  ITEMS  il-14  OF  THE  EMPLOYER  RECORDS ( QUARTERLY  UAGES- 
SEE  REFERENCE  i>  SHOULD  BE  DEALT  WITH  USING  AN  ’A*  FORMAT 
BECAUSE  AN  *1“  TORMAT  WILL  GIVE  YOU  ZEROES < MEANING  TAX¬ 
ABLE  LIMIT)  WHEN  YOU  REALLY  WANT  SPACES (MEANING  NO  EARNINGS 
WERE  REPORTED). 

* 
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l< KI ND*P£TA PE. TI TL £="00329 1/ ARIZONA.-. FILE 1YPE"8> 

6( KINO*PRIN  TER ) 

DIMENSION  IN100I19).  IN  200(16) 

NPRIMMO 
STAR*2*2 
N0R£CS*0 
N0SSKS*0 
IN200C1  >*2 

IF(NOSSNS.GE.NPRINT)GO  TO  500 

IFEIK2 09(1). NE  .2)00  TO  900 

RE AC(1»110.DATA=700>END=800) IN100 

FORMAT! II.  I2.A6.  AJ  .14.  21 1.  JI  2.  161 1  #121 1.16) 

N0RECS*N0RECS*1 

WRITE!  6.120HSTAR.  I*  l.  1J0  > 

F0RMAT(1X.130A1) 

WRITE! 6. 130) NORECS.INI  00 

FORMAT  (>  REC  2  *  16  •  2  KIK0*2.I1>2  NYRS=>.12.>  SSN*2.A6»AJ. 

*2  YR8T  H  =  >»  I  4.2  SEX  *2 . 1 1.2  RACE*2.U.>  MO A8  TH* >» ! 2*  2  GRP.N0.=2»  12/ 

•  1X.T1 3. 2TOTEMP*2»  I2»  2  NEMP  S*2»  161 1*2  I  ND«2  #  1 2 1 1  *  2  7 10  ATA*  2.  I  6  ) 

00  A 00  I  *1 .  I N1 00! I  0) 

RE  ADI  1.210 .DAT A  =  J0O.£N 0*800 ) IN200 

FORMATCIl.  I2.A6.A3.I4.  IS.IA.Il.Il.I2.IJ.AAS.il) 

N0RECS*N0RECS*1 
WRITE!  6.220)1. IN200 

FORMAT  (2  EMP.NO.  2.12.2  KINO*2.I1.2  YR«2.I2*2  ElN*l.A6.A3. 

•2  UNIT  *2.  IA»  2  LOC*  2.  IS  .2  SIC*2.IA.2  $CH0*2.I1.2  C0V*2.I1. 

•  2  SIZE  *2.1 2.  2  S  MSA  *2.  I  3.  2  WGS*  2.»  *A  5.  2  NHCIT*2.I1) 

GO  TO  AOO 

N0RECS*N0R£CS»1 
WRITE!  6.310) NORECS 

F0RMATUX.2EMPL0YEP  RECORO  FORMAT  ERPOR  AT  RECORD  KO.  2.16/ 

•  IX.2THIS  RECORO  WILL  BE  SKIPPED  OVER.  AND  THE  PROGRAM  WILL  2. 

*2C  ONTI NUE  ON  WITH  THE  NEXT  RECORO. 2) 

CONTINUE  * 

NOSSNS*NOSSNS«l 
GO  TO  50 

wr:te(6.5io)norecs.nossns 

F0RMATI//1  X.2EVERYTHING  WENT  OK.  2.16.2  REC0R0S  AMO  2.16. 

•2  PEOPLE  HAVE  BEEN  PROCESSED. 2) 

STOP 

N0RECS*N0RECS»1 
HR  I  TEC  6.71 OINORECS 

F0RMAT(//1X.2HEA0ER  RECORD  FORMAT  ERROR  AT  RECORO  NO.  2.16/ 

•IX. >THIS  PERSON  WILL  BE  SKIPPED  OVER.  ANC  THE  PROGRAM  MILL  2. 

•  2C0NT1NUE  ON  WITH  THE  NEXT  PERSON. 2) 

RE AD( 1 > 7 30 .END*C00  > 1 N7  20 
FORNAT(Ii) 

IF ( IK7 20. £0. 2 )G0  TO  100 
GO  TO  720 

MR  ITE« 6.810 INORECS.NOSSNS 

FORMAT  (//2  END  OF  TAPE  FILE  CAUSES  TER  MI  AA  T I  ON  OF  PROGRAM  AFTER2. 

•  2  PROCESSING  2.16.2  RECORDS  AND  2.16.2  PEOPLE. 2) 

GO  TO  600 

NPITEC6.910  )NOSSNS.NORECS 

FORMAT  (//1X.2BA0  ERROR.  NOSSN  S«2. 16. »  NCR  EC  S  *2 . 16  / 

•2  IN200C 1 )  IS  NE  2  AND  WE  ARC  A90UT  TO  READ  A  HEADER  RECORO. 2/ 

•  2  A  BAD  VALUE  FOR  TOTEMP  HAS  PR06ABLY  MESSED  UP  THE  AOC  00  LOOP. 2/ 
•2  PROGRAM  TERMINAT£S»2) 

GO  TO  600 
END 
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